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

#include <File.au3>

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

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

#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