[amel27]

В итоге надо получить воттакое вот »

Код:

ConsoleWrite(_StringDistinct(FileRead("c:\TEST\1.txt")) &@CRLF)

Func _StringDistinct($sTXT)
    Local $aLN1, $sOUT = ""

    While $sTXT <> ""
        $aLN1 = StringRegExp($sTXT, "^[^\n\r]*", 1)
        $sTXT = StringRegExpReplace($sTXT, "(?m)^\Q"& $aLN1[0] &"\E(?:\r\n|\n|$)", "")
        $sOUT&= $aLN1[0] &@CRLF
    WEnd
    Return $sOUT
EndFunc

[amel27]

HORRIBLE, решено?

FYI: Как сообщить о том, что моя проблема решена?

[HORRIBLE]

Прошу прощения забыл совсем поставить, что решено!