Что нового

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

Centrinar

Новичок
Сообщения
100
Репутация
1
Собственно в справке ничего не нашел, как же?
 

SECTOR

Продвинутый
Сообщения
399
Репутация
59
Как то так:
Код:
#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

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Это делается так:

Код:
#include <File.au3>

$sFile = "File.txt"

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



Добавлено:
Сообщение автоматически объединено:

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

Код:
$sFile = "File.txt"
$sRead = StringStripWS(FileRead($sFile), 2)
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, StringLeft($sRead, StringInStr($sRead, @LF, 2, -1)))
FileClose($hFile)
 
Верх