Добрый день,
столкнулся с задачей, сравнить два документа, и все, что повторяется заменить пробелом в документе, который сравнивается.
Написал, привожу код:
Скрипт, не дает ошибки при работе, но заменяет весь текст пробелом, даже, если тексты разные, и данный фрагмент, не повторяется.
Еще один момент, почему-то, не выводиться первый MsgBox :stars:
Ребята, пожалуйста посмотрите, где может быть ошибка, подскажите, как исправить :IL_AutoIt_1:
Заранее благодарен :beer:
столкнулся с задачей, сравнить два документа, и все, что повторяется заменить пробелом в документе, который сравнивается.
Написал, привожу код:
Код:
#include <File.au3>
$FOF = FileOpen("C:\local_mashine\annuity.txt", 0)
$FOF1=FileOpen("C:\local_mashine\annuity_old.txt", 0)
$FOF2 = FileOpen("C:\local_mashine\annuity.txt", 2)
For $x = 0 To -1
$x = $x+1
$line = FileReadLine($FOF,$x)
$line1 = FileReadLine($FOF1)
$result = StringCompare($line, $line1)
MsgBox('','возврат подстроки найденной',$result)
If $result = 0 Then
;Вместо строки в файле annuity.txt ставим пробел
$newline = StringReplace($line, , ' ')
$FW = FileWrite($FOF2,$newline)
EndIf
Next
MsgBox('','Результат','Сравнение файлов успешно завершено :)')
FileClose($FOF)
FileClose($FOF1)
FileClose($FOF2)
Скрипт, не дает ошибки при работе, но заменяет весь текст пробелом, даже, если тексты разные, и данный фрагмент, не повторяется.
Еще один момент, почему-то, не выводиться первый MsgBox :stars:
Ребята, пожалуйста посмотрите, где может быть ошибка, подскажите, как исправить :IL_AutoIt_1:
Заранее благодарен :beer: