Что нового
Автор:
Фильтры

Перезаписать строку,как?

I

Ivan4310

Новичок
Сообщения
16
Репутация
0
Никак не могу перезаписать строку!Ситуация следующая,есть файл тхт,в нем выполняется поочередное прочтение всех строк,и если найдено нужно совпадение,то необходимо перезаписать строку в которой оно найдено!Имеется переменная со строкой в текстовом файле,имеется переменная с текстом который нужно записать вместо старого,как это сделать?Все варианты перепробовал,то все удаляется в текстовом файле,то ничего...
Допустим имеется текстовый файл с текстом:
123
456
789

Программе задано найти 456 и перезаписать ее например на 000,как это сделать?подскажите пожалуйста :(
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Ivan4310,
1. Самое простое.
Код: 
$sFile = @ScriptDir & '\test.txt'

$sText = StringReplace(FileRead($sFile), '456', '000')
ConsoleWrite('Replace count: ' & @extended & @LF)
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $sText)
FileClose($hFile)

2. Если надо перезаписать всю строку, в которой есть искомая подстрока.
Код: 
Global $sFile = @ScriptDir & '\test.txt', $sSearch = '\E', $sReplace = '\r\n', $sText;, $hFile

$sSearch = StringReplace($sSearch, '\', '\\')
$sReplace = StringReplace($sReplace, '\', '\\')
$sText = FileRead($sFile)
$sText = StringRegExpReplace($sText, '(?s)(.*(?:^|\r\n))([^\r\n]*?\Q' & $sSearch & '\E[^\r\n]*?)((?:\r\n|$).*$)', '${1}' & $sReplace & '${3}')
ConsoleWrite($sText & @LF)
;$hFile = FileOpen($sFile, 2)
;FileWrite($hFile, $sText)
;FileClose($hFile)
Файл test.txt:
Код: 
какой-то текст 123 и еще что-нибудь.
какой-то текст \E и еще что-нибудь.
Какой-то текст 789 и еще что-нибудь.
Или, если читать-писать построчно.
Код: 
Global $sFile = @ScriptDir & '\test.txt', $sFileTmp = $sFile & '.tmp', $sSearch = '\E', $sReplace = '\r\n', $sText, $hFile, $hFileTmp

If FileExists($sFileTmp) Then FileDelete($sFileTmp)
$hFile = FileOpen($sFile)
$hFileTmp = FileOpen($sFileTmp, 1)
While 1
	$sTmp = FileReadLine($hFile)
	If @error Then ExitLoop
	If StringInStr($sTmp, $sSearch) Then $sTmp = $sReplace
	FileWriteLine($hFileTmp, $sTmp)
WEnd
FileClose($hFile)
FileClose($hFileTmp)
;FileMove($sFileTmp, $sFile, 1)
Так в конце будет добавлен перенос строки (@CRLF) даже, если его не было в исходном файле.
 
joiner

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
http://autoit-script.ru/index.php/topic,12091.0.html
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
joiner,
А где здесь дублирующиеся строки?
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
C Как получить эту строку данных с жесткого диска? Общие вопросы по AutoIt 2
T Удалить первую строку в txt и перезаписать Общие вопросы по AutoIt 6
urrya [Данные, строки] как перезаписать тектовый файл быстро (не открывая дважды) Общие вопросы по AutoIt 3
reset86 Как записать-перезаписать данные в нужную текстовую строку? Общие вопросы по AutoIt 5
A Как правильно перезаписать значение с увеличением на единицу Общие вопросы по AutoIt 3
Похожие темы
Как получить эту строку данных с жесткого диска?
Удалить первую строку в txt и перезаписать
[Данные, строки] как перезаписать тектовый файл быстро (не открывая дважды)
Как записать-перезаписать данные в нужную текстовую строку?
Как правильно перезаписать значение с увеличением на единицу
Верх