Wulk@n
Новичок
- Сообщения
- 34
- Репутация
- 0
Версия AutoIt: 3.3.12.0
Описание:
Привет всем !
Нужно доработать Код AutoIt , чтобы значение на что заменить Выполнялось из текстового файла '\MyFolder2\tekst.txt''
так как что заменить всегда одинаковое а на что заменить значение меняется !
Примечания:
Описание:
Привет всем !
Нужно доработать Код AutoIt , чтобы значение на что заменить Выполнялось из текстового файла '\MyFolder2\tekst.txt''
так как что заменить всегда одинаковое а на что заменить значение меняется !
Примечания:
Код:
#include <File.au3>
$sFolder = @ScriptDir & '\MyFolder'
$sTextAdd = ''
$sTextSearch = 'Текст, который заменяем.'
$sTextReplace = 'Текст, на который заменяем.'
$sTextOld = ''
$sTextNew = ''
$aFileList = _FileListToArray($sFolder, '*.txt', 1)
If @error Then Exit
For $i = 1 To UBound($aFileList) - 1
$hFile = FileOpen($sFolder & '\' & $aFileList[$i], 0)
$sTextOld = FileRead($hFile)
FileClose($hFile)
$sTextNew = StringReplace($sTextOld, $sTextSearch, $sTextReplace) & @CRLF & $sTextAdd
$hFile = FileOpen($sFolder & '\' & $aFileList[$i], 2)
FileWrite($hFile, $sTextNew)
FileClose($hFile)
$sTextOld = ''
$sTextNew = ''
Next
?
