[madmasles]

NewOLDi,

_FileWriteToLine() посмотрите в библиотечных функциях, которые

я ооочень люблю...

[kaster]

Код:

$sFile = @ScriptDir & '\test.txt'; путь до текстового файла, который подлежит обработке - должен существовать
$tmpFile = @ScriptDir & '\test_new.txt'; путь до нового файла, который получится после обработки - если не существует создаться автоматически

$hRead = FileOpen($sFile, 0); открываем первый файл для чтения
$hWrite = FileOpen($tmpFile, 2); открываем/создаем второй файл для записи/перезаписи

$template = 'string must exist in file'; фраза которая должна существовать в строке для начала обработки
$sAdd = ';'; символы которые добавятся перед найденной строкой
While 1
	$sLine = FileReadLine($hRead); считывание строк первого файла одна за другой
	If @error Then ExitLoop; если конец файла выходим из скрипта
	If StringInStr($line, $template) Then; условие нахождения нужной строки
		FileWriteLine($hWrite, $sAdd & $sLine); добавление символов для найденной строки
	Else; условие когда строка не искомая
		FileWriteLine($hWrite, $sLine); просто перезаписываем эту строку как есть
	EndIf; конец условия
WEnd; конец цикла

FileClose($hRead)
FileClose($hWrite); закрываем файлы для соблюдения правил приличия и хороших манер

[madmasles]

kaster и NewOLDi,

У меня через массив вот так работает:

Код:

#include <file.au3>

$aRecords = ""
_FileReadToArray("my.txt", $aRecords)

For $i = 1 To $aRecords[0]
    If StringInStr($aRecords[$i], "То что ищем") > 0 Then
        _FileWriteToLine("my.txt", $i, StringReplace($aRecords[$i], $aRecords[$i], ";" & _
                $aRecords[$i]), 1)
    EndIf
Next

[NewOLDi]

kaster, у Вас используются два файла, а нужно всё проворачивать в одном, т.е. и читать и записывать (при необходимости) одновременно.

madmasles, массив-память - одно и тоже (в условиях я указал на это), а нужно напрямую, без загона инфы в память. Представьте, что файл размером в 1 Гб И это, любить библиотечные функции - не означает все их знать и уметь пользоваться, любовь здесь с точки зрения разумности использования того, что уже давно придумано и просчитано (типа - зачем изобретать велосипед).

[Creat0R]

это, имхо, не совсем правильно »

Как раз это самый правильный вариант, а память заполняется временно, если переменная массива локальная, то после выхода из функций память высвобождается, а если глобальная, то после использования массива его можно "онулировать":

Код:

$aArray = 0

[NewOLDi]

Нууу.... нет так нет, бум использовать память и полностью перезаписывать имеющийся файл

[Creat0R]

Представьте, что файл размером в 1 Гб »

Но без построчного чтения с начала всё ровно не обойтись:

Код:

$sFile = @DesktopDir & "\File.txt"
$sInStr = "Some Data"

$hFile = FileOpen($sFile, 0)

While 1
    $sLine = FileReadLine($hFile)
    If @error <> 0 Then ExitLoop

    If StringRegExp($sLine, "(?i)^[^;].*" & $sInStr & ".*$") Then
        $iPos = FileGetPos($hFile) - StringLen($sLine) - StringLen(@CRLF)
        FileClose($hFile)

        $hFile = FileOpen($sFile, 1)
        FileSetPos($hFile, $iPos, 0) ;$FILE_BEGIN
        FileWrite($hFile, ";" & $sLine)
        ExitLoop
    EndIf
WEnd

FileClose($hFile)

[NewOLDi]

Creat0R, нууу - строка не файл, как никак Благодарю, вроде как работает.

[madmasles]

Интересно, сколько таких способов и какой из них наиболее оптимальный и почему.