#include <FileConstants.au3>
Global $sFile = 'big.txt', $bText, $bReplace, $hFile, $hFileNew, $iPos = 0x00010030, $iSize, _
$iMod, $iEnd, $iPart = 1024 * 1024 * 10, $iTime, $iTmp = 0, $iLen
;Без проверок на ошибки
;#cs
;долго пишет новый файл 100 Mb
$hFile = FileOpen(@ScriptDir & '\' & $sFile, 16 + 2)
For $j = 1 To 100
$bText = ''
For $i = 1 To 1024 * 1024
$bText &= Chr($iTmp)
$iTmp += 1
Switch $iTmp
Case 256
$iTmp = 0
EndSwitch
Next
FileWrite($hFile, Binary($bText))
Next
FileClose($hFile)
$bText = ''
;#ce
For $i = 192 To 255
$bReplace &= Chr($i)
Next
ConsoleWrite('Строка замены String: ' & $bReplace & @LF)
$bReplace = Binary($bReplace)
ConsoleWrite('Строка замены Binary: ' & $bReplace & @LF)
$iLen = BinaryLen($bReplace)
;читаем до изменения
$hFile = FileOpen(@ScriptDir & '\' & $sFile, 16)
FileSetPos($hFile, $iPos, $FILE_BEGIN)
$bText = FileRead($hFile, $iLen)
FileClose($hFile)
ConsoleWrite('до Binary: ' & $iPos & @TAB & $bText & @LF)
ConsoleWrite('до String: ' & $iPos & @TAB & BinaryToString($bText) & @LF)
$iTime = TimerInit()
$iSize = FileGetSize(@ScriptDir & '\' & $sFile)
$hFile = FileOpen(@ScriptDir & '\' & $sFile, 16)
$hFileNew = FileOpen(@ScriptDir & '\New_' & $sFile, 16 + 2)
If $iPos > $iPart Then
$iTmp = Int($iPos / $iPart)
$iMod = Mod($iPos, $iPart)
For $i = 1 To $iTmp
$bText = FileRead($hFile, $iPart)
FileWrite($hFileNew, $bText)
Next
$bText = FileRead($hFile, $iMod)
FileWrite($hFileNew, $bText & $bReplace)
FileRead($hFile, $iLen)
While 1
$bText = FileRead($hFile, $iPart)
If @error Then ExitLoop
FileWrite($hFileNew, $bText)
WEnd
Else
$bText = FileRead($hFile, $iPos)
$bText &= $bReplace
FileWrite($hFileNew, $bText)
FileRead($hFile, $iLen)
While 1
$bText = FileRead($hFile, $iPart)
If @error Then ExitLoop
FileWrite($hFileNew, $bText)
WEnd
EndIf
FileClose($hFile)
FileClose($hFileNew)
ConsoleWrite('Time: ' & TimerDiff($iTime) & @LF)
$bText = ''
FileMove(@ScriptDir & '\New_' & $sFile, @ScriptDir & '\' & $sFile, 1)
;читаем после изменения
$hFile = FileOpen(@ScriptDir & '\' & $sFile, 16)
FileSetPos($hFile, $iPos, $FILE_BEGIN)
$bText = FileRead($hFile, $iLen)
FileClose($hFile)
ConsoleWrite('после Binary: ' & $iPos & @TAB & $bText & @LF)
ConsoleWrite('после String: ' & $iPos & @TAB & BinaryToString($bText) & @LF)Не работает. :(
#include <Constants.au3>
dim $string
$file = "c:\5Gb.bin" ;Файл для патча
$point = 0x10 ;Точка входа в файл (17 символ)
$size = 0xff ;Количество изменяемых байт (255)
$Null = chr(0x00) ;Заменяющий символ (обнуление)
$openfile = FileOpen($file, 16+1)
FileSetPos($openfile, $point, $FILE_BEGIN)
For $i = 0 to $size
$string &= $Null
Next
FileWrite($openfile, $string)
c какими? я вот смотрю на твой код и свой и единственная разница это
FileSetPos($h, Dec(0xFFFFFF), $FILE_BEGIN); у меня
;--------------
$point = 0x10
FileSetPos($openfile, $point, $FILE_BEGIN); у тебяДобавлено:
$h = FileOpen('filepath', 16+2)
FileSetPos($h, Dec(0xFFFFFF), $FILE_BEGIN)
$sZeros = Chr(0)
For $i = 1 to 255
$sZeros &= Chr(0)
Next
FileWrite($h, $sZeros)#include <FileConstants.au3>FileOpen('filepath', 16+2)$sZeros = Chr(0)
For $i = 1 to 255
$sZeros &= Chr(0)#include <Constants.au3>
dim $string
$file = "c:\5Gb.bin" ;Файл для патча
$point = 0x10 ;Точка входа в файл (17 символ)
$size = 0xff ;Количество изменяемых байт (255)
$Null = chr(0x00) ;Заменяющий символ (обнуление)
$openfile = FileOpen($file, 16+1)
FileSetPos($openfile, $point, $FILE_BEGIN)
For $i = 0 to $size
$string &= $Null
Next
FileWrite($openfile, $string)For $i = 0 to $size
$string &= $Null
Next$n = 1024 * 100
$0 = Chr(0)
$0 = Chr(28)
$timer1 = TimerInit()
$sText = StringReplace(StringFormat("%0" & $n & "d", "0"), "0", $0, 0, 2)
$timer1 = Round(TimerDiff($timer1), 2)
MsgBox(0, 'Время : ' & $timer1 & ' мсек', $sText)
$timer2 = TimerInit()
$sText = ''
For $i = 1 To $n
$sText &= $0
Next
$timer2 = Round(TimerDiff($timer2), 2)
MsgBox(0, 'Время : ' & $timer2 & ' мсек', $sText)#include <Constants.au3>
$file = @ScriptDir&'\Копия тест.au3' ;Файл для патча
$point = 0x10 ;Точка входа в файл (17 символ)
$size = 0xff ;Количество изменяемых байт (255)
$Null = chr(0x00) ;Заменяющий символ (обнуление)
$openfile = FileOpen($file, 16+1)
FileSetPos($openfile, $point, $FILE_BEGIN)
For $i = 0 to $size
FileWrite($openfile, $Null)
Next
FileClose($openfile)dim $stringFor $i = 0 to $size
$string &= $Null
NextFor $i = 0 to $size
FileWrite($openfile, $Null)
NextFileWrite($openfile, $Null &= chr(0x00))$string &= $Null#include <Constants.au3>
dim $string
$file = "c:\5Gb.bin" ;Файл для патча
$point = 0x10 ;Точка входа в файл (17 символ)
$size = 0xff ;Количество изменяемых байт (255)
$Null = chr(0x00) ;Заменяющий символ (обнуление)
$openfile = FileOpen($file, 16+1)
FileSetPos($openfile, $point, $FILE_BEGIN)
For $i = 0 to $size
$string &= $Null
Next
FileWrite($openfile, $string)Зачем это мне говорить? Я знаю что это, с единственной разницей, Dim обычно вообще не используется, редкий случай для массива, чтобы очистить его содержимое, в остальных случаях это вполне конкретная область видимости, локальная или глобальная, а не двусмысленная.
придётся поверить что такое возможно. Вы открываете файл, но фактически инициализируете буфер в памяти. Данные записываются только когда буфер заполнен. Подробности смотрите в функции FileFlush, которая сбрасывает буфер без закрытия файла. В то время как в памяти вы многократно выделяете область для слияния, отсюда и тормоза. Я проверил скорость, запись в цикле проигрывает, но скорее всего из-за инициализации функции.
