Цитата HORRIBLE:
|
В итоге надо получить воттакое вот »
|
Код:
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
