[amel27]

Maza Faka, Creat0R

еще два варианта удаления дублей: в 1-м случае файл подается в виде строки, во 2-м как массив строк

Код:

#include <array.au3>

Func _TextStripDupLines($text)
    If StringRight($text,2)<>@CRLF Then $text &= @CRLF
    Do
        $text = StringRegExpReplace($text,'(?s)(?m)(^[^\n]+\n)(.*?)(^\1)','\1\2')
    Until @extended=0
    Return $text
EndFunc

Func _ArrayDeleteClones($strArray)
    Local $search, $newArray[1]=[0]
    For $i = 1 To $strArray[0]
        $search = -1
        If $i<$strArray[0] Then $search = _ArraySearch($strArray, $strArray[$i], $i+1)
        If $search=-1 Then
            $newArray[0]+=1
            ReDim $newArray[$newArray[0]+1]
            $newArray[$newArray[0]]=$strArray[$i]
        EndIf
    Next
    Return $newArray
EndFunc