Удаление строки из файла

;Автор: CreatoR
;Удаление определённой строки (по номеру) в файле

;Удаляем 3-тью строчку с файла "File.txt"
_FileDeleteLine(@ScriptDir & "\File.txt", 3)

Func _FileDeleteLine($sFile, $iLine)
	$hFile = FileOpen($sFile, 0)
	If $hFile = -1 Then Return SetError(1, 0, 0)
	
	$sFileContent = ""
	$aFileContent = StringSplit(StringStripCR(FileRead($hFile)), @LF)
	
	FileClose($hFile)
	
	For $i = 1 To $aFileContent[0]
		If $i <> $iLine Then $sFileContent &= $aFileContent[$i] & @CRLF
	Next
	
	$hFile = FileOpen($sFile, 2)
	If $hFile = -1 Then Return SetError(2, 0, 0)
	
	FileWrite($hFile, StringTrimRight($sFileContent, 2))
	Return FileClose($hFile)
EndFunc

For $i = 1 To $aFileContent[0]
        If $i <> $aFileContent[0] + 1 - $iLine Then $sFileContent &= $aFileContent[$i] & @CRLF
    Next