[amel27]

Maza Faka

я тут подумал насчет твоего варианта - почему он работает хотя вроде не должен... ведь действительно, если использовать встроенную защиту _ArraySearch() код можно еще сократить

Код:

#include <array.au3>
#include <file.au3>

Dim $a, $f = 'c:\test.txt'
_FileReadToArray($f, $a)
_FileWriteFromArray($f,_ArrayDeleteClones($a),1)

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