[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)