Как удалить последнюю строку текстового файла?

_FileDeleteLine("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

[Тирлям-тирля-лям]
1=Тра-ля-ля
2=Тур-люр-лю
...
15=Дыр-бул-шил

_FileDeleteLine(@ScriptDir & '\file.txt', 1)

; $sFile - путь к файл
; $iLine - количество строк обрезаемых с конца.
Func _FileDeleteLine($sPath, $iLine)
	Local $hFile, $iPos, $sText

	; Проверка входных параметров
	If Not FileExists($sPath) Then Return SetError(1) ; ошибка, путь не верный
	If Not StringIsDigit($iLine) Then Return SetError(2) ; ошибка, номер строки не является числом

	$sText = FileRead($sPath) ; чтение файла
	$iPos = StringInStr($sText, @CRLF, 1, - $iLine) ; поиск позиции переноса строки с конца текста

	If $iPos Then ; если найдено, то
		$sText = StringLeft($sText, $iPos-1) ; чтение текста слева до найденной позиции
	Else
		$sText = '' ; количество строк в файле меньше, чем задано для обрезки, поэтому обрезка под корень
	EndIf
	$hFile = FileOpen($sPath, 2) ; запись в файл
	FileWrite($hFile, $sText)
	FileClose($hFile)
EndFunc

;Отсчет строк начинается с нуля.
$iLine = 1
$sData = 'Line_000' & @CRLF & 'Line_001' & @CRLF & 'Line_002'
$sLine = StringRegExpReplace($sData, '(?m)\A((?:[^\r\n]*\r?\n){'&$iLine&'}?)[^\r\n]+', '\1')
ConsoleWrite($sLine & @LF)

#include <file.au3>

_FileWriteLog ("1.txt","1.1"&@CRLF&"1.2"&@CRLF&"1.3")
newFileWriteLog("2.1"&@CRLF&"2.2"&@CRLF&"2.3","1.txt",4)

Func newFileWriteLog ($text,$path,$maxlines)
   
   $textlines = StringSplit (StringStripCR($text),@LF)
   $textlines = $textlines[0]
   If $textlines>$maxlines then Return 0
   If $textlines=$maxlines then 
	  FileDelete ($path)
	  _FileWriteLog ($path,$text)
	  Return 1
   EndIf
   
   _FileWriteLog($path, $text)
   $FileLines = _FileCountLines ($path)

   If $FileLines>$MaxLines then
	  msgbox ("","","В файле записано "&$filelines&" строк, а максимально возможно - "&$maxlines&". Поэтому, строчки с "&1&"-й по "&($filelines-$maxlines)&"-ю будут удалены!")
	  For $i = 1 to $filelines-$maxlines
		 _FileDeleteLine ($path,$i)
		 msgbox ("","","В файле теперь "&_FileCountLines ($path)&" строк, ведь удалена "&$i&"-я.")
	  Next
   EndIf
   
EndFunc





Func _FileDeleteLine($sPath, $iLine)
     Dim $sData
	 $file = FileOpen ($sPath)
	 Do
		$sData&=@CRLF&FileReadLine ($file)
		 $error = @error
	  Until $error=-1
	 
	 
     $sLine = StringRegExpReplace($sData, '(?m)\A((?:[^\r\n]*\r?\n){'&$iLine&'}?)[^\r\n]+', '\1')
	 
	  FileDelete ($spath)
	  FileWriteLine ($spath,$sLine)
	  Return 1
EndFunc

$sData = 'Line_000' & @CRLF & 'Line_001' & @CRLF & 'Line_002'
$sLine = StringRegExpReplace($sData, '(?:^|\r\n)[^\r\n]*\Z', '')
ConsoleWrite($sLine & @LF)