Прочитать первую строку из txt файла

[n5320]

Прошу помочь.Нужно прочитать первую строку из txt файла,записать в переменную, затем удалить эту первую строку
И так в цикле

 

[InnI]

#include <File.au3>

$path = @ScriptDir & "\file.txt" ; путь к файлу

Do
  $str = FileReadLine($path) ; чтение
  If @error = -1 Then ExitLoop ; выход при отсутствии строк
  _FileWriteToLine($path, 1, "", True) ; удаление
Until 0

 

[hedji]

#include <File.au3>

$end = _FileCountLines("test.txt")

While $end >= 1
$str = FileReadLine("test.txt", 1)
MsgBox(0, "", $str)
_FileWriteToLine("test.txt", 1, "", 1)
$end = _FileCountLines("test.txt")
WEnd

 

[n5320]

Всем спасибо, то что надо