Обрезка файла

[OXIGEN]

Здравствуйте. Вопрос вроде простой, но никак не могу найти ответ. Нужно удалить все строки из файла ТХТ с определённой строки. Допустим оставить первые
20 строк, а всё что ниже удалить (строк около 5к). Именно удалить, а не затереть. Количество строк "снизу" произвольное.

 

[All2khoff]

Похожая задача решалась тут, вам не подходит?

[Данные, строки] Удалить строки по номеру строки

Уважаемые! Не смог найти функции удаления строки в файле по нужному мне номеру. С конца удалять умею, а как удалить напрмер первых 3 строки в файле ?

autoit-script.ru

#include <File.au3>

Dim $aArray
$sFilePath = '1.txt'

_FileReadToArray($sFilePath, $aArray)
_FileWriteFromArray($sFilePath, $aArray, 1, 20)

Чуть поправил...

 

[OXIGEN]

Спасибо! Как-то я это пропустил! Подходит! Но почему-то после использования кода, в первой строке обрезаемого файла, появляется строка с цифрами..
Попробую поискать в описании _FileWriteFromArray.

Сообщение автоматически объединено: 6 Окт 2023

Спасибо! Как-то я это пропустил! Подходит! Но почему-то после использования кода, в первой строке обрезаемого файла, появляется строка с цифрами..Вроде количество удалённых строк.
Попробую поискать в описании _FileWriteFromArray.

 

[Norm]

Вот чистый натив, без дополнительных библиотек, тоесть проще и быстродейственней.

Local $sFile = @ScriptDir &"\Test.txt", $sString = FileRead($sFile)
Local $nFD = FileOpen($sFile, 2+FileGetEncoding($sFile,2))
FileWrite($nFD, StringLeft($sString, StringInStr($sString, @CRLF, 0, 20)))
FileClose($nFD)