Добрый день! Помогите пожалуйста разобраться.
Нужно найти в файле несколько строк между известными тегами, заменить их на нужные и все это дело сохранить обратно в файл.
Вот код что у меня получилось, но сохраняет тока одно изменение.
Нужно найти в файле несколько строк между известными тегами, заменить их на нужные и все это дело сохранить обратно в файл.
Вот код что у меня получилось, но сохраняет тока одно изменение.
Код:
$pFile = @DesktopDir & '\test.txt'
$Read = FileRead($pFile)
$aRegExpValue_f = StringRegExp($Read, "<One>((?s).*?)</One>", 3)
$aRegExpValue_a = StringRegExp($Read, "<Two>((?s).*?)</Two>", 3)
$aRegExpValue_v = StringRegExp($Read, "<Three>((?s).*?)</Three>", 3)
$Replace_f = StringReplace($Read, $aRegExpValue_f[0], @LF & '<text>Ссылка1</text>' & @LF)
$Replace_a = StringReplace($Read, $aRegExpValue_a[0], @LF & '<text>Ссылка2</text>' & @LF)
$Replace_v = StringReplace($Read, $aRegExpValue_v[0], @LF & '<text>Ссылка3</text>' & @LF)
FileDelete($pFile)
FileWrite($pFile, $Replace_f)
FileWrite($pFile, $Replace_a)
FileWrite($pFile, $Replace_v)