[Данные, строки] как перезаписать тектовый файл быстро (не открывая дважды)

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)

Local $FileOpen = FileOpen(@ScriptDir & '\text.txt', 0)
Local $FileRead = FileRead($FileOpen)
FileClose($FileOpen)
$FileRead = StringReplace($FileRead, '123abc', '000000', 1, 2)
; это если чтото заменили
if @extended > 0 then
	$FileOpen = FileOpen(@ScriptDir & '\text.txt', 130)
	Local $FileWrite = FileWrite($FileOpen, $FileRead)
	FileClose($FileOpen)
endif

Local $FileWrite, $FileRead = FileRead(@ScriptDir & '\text.txt')
$FileRead = ($FileRead) ? StringReplace($FileRead, '123abc', '000000', 1, 2) : ''
If $FileRead Then $FileWrite = FileWrite(@ScriptDir & '\text.txt', $FileRead)
If Not $FileWrite Then MsgBox(0, "Error", 'НЕ записал в файл!')

$sFile = @ScriptDir & '\text.txt'
If Not FileWrite($File, ((FileRead($File, 16)) ? StringReplace(FileRead($File), '123abc', '000000', 1, 2) : '')) Then MsgBox(16, '', 'НЕ записал!')