Удалить последнюю строчку в TXT файле

[Centrinar]

Собственно в справке ничего не нашел, как же?

 

[SECTOR]

Как то так:

#include <File.au3>

Dim $array
_FileReadToArray("1.txt",$array)

If Not IsArray($array) Then Exit

Dim $hOpen = FileOpen("1.txt",2)
For $n = 1 To $array[0]-1
	FileWrite($hOpen,$array[$n])
	If $n <> $array[0]-1 Then FileWrite($hOpen,@CRLF)
Next
FileClose($hOpen)

 

[CreatoR]

Это делается так:

#include <File.au3>

$sFile = "File.txt"

_FileWriteToLine($sFile, _FileCountLines($sFile), "", 1)

Добавлено:

Сообщение автоматически объединено: 25 Июл 2011

Ну или так, если не использовать библиотеки:

$sFile = "File.txt"
$sRead = StringStripWS(FileRead($sFile), 2)
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, StringLeft($sRead, StringInStr($sRead, @LF, 2, -1)))
FileClose($hFile)