urrya
Новичок
- Сообщения
- 159
- Репутация
- 1
Всем доброго времени суток гос-да и дамы.
есть кусочек кода для перезаписи текстового файла:
можно ли каким то способом ускорить этот процесс?
:blink:
есть кусочек кода для перезаписи текстового файла:
Код:
Local $FileOpen = FileOpen(@ScriptDir & '\text.txt', 0)
If $FileOpen = -1 Then
MsgBox(0, "Error 1", '!!!')
Return
EndIf
Local $FileRead = FileRead($FileOpen)
FileClose($FileOpen)
$FileRead = StringReplace($FileRead, '123abc', '000000', 1, 2)
If @error <> 0 Then
MsgBox(0, "Error", 'НЕ заменил строку!')
Return
EndIf
$FileOpen = FileOpen(@ScriptDir & '\text.txt', 130)
If $FileOpen = -1 Then
MsgBox(0, "Error 2", '!!!')
Return
EndIf
Local $FileWrite = FileWrite($FileOpen, $FileRead)
If $FileWrite = 0 Then
MsgBox(0, "Error", 'НЕ записал в файл!')
Return
EndIf
FileClose($FileOpen)
можно ли каким то способом ускорить этот процесс?
:blink: