Автор Vanek задал вопрос в разделе Другие языки и технологии
Удалить одинаковые слова из двух файлов и получил лучший ответ
Ответ от User[гуру]
Скрипт. На AutoIt3 написан:
#include <file.au3>
$CountLines1 = _FileCountLines("1.txt")
$CountLines2 = _FileCountLines("2.txt")
Dim $add
For $b = 1 to $CountLines2
$file2 = FileOpen("2.txt", 0)
$line2 = FileReadLine($file2, $b)
$add = $add&" "&$line2
Next
For $a = 1 to $CountLines1
$file1 = FileOpen("1.txt", 0)
$line1 = FileReadLine($file1, $a)
$result = StringInStr($add, $line1)
if $result = 0 Then
$file3 = FileOpen("3.txt", 1)
FileWrite($file3, $line1 & @CRLF)
$add = $add&" "&$line1
EndIf
Next
FileClose($file1)
FileClose($file2)
FileClose($file3)
Exit
Открывает в каталоге из которого запущен 1.txt и 2.txt
обрабатывает и результат в 3.txt, если отличия будут.
Комментарии исходника потом дам, если надо.