Что нового

[Данные, строки] Замена текста в .txt

Wulk@n

Новичок
Сообщения
34
Репутация
0
Версия AutoIt: 3.3.12.0

Описание:
Привет всем ! :smile:
Нужно доработать Код 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
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,673
Репутация
2,486
Код:
$sTextReplace = FileRead('MyFolder2\tekst.txt')

:scratch:?
 
Верх