[FlatX007]

Код:

#include <Array.au3>

$iEndString = _ReadString(@ScriptDir & '\' & '1.txt')
If Not (@error) Then MsgBox(64, "", $iEndString)

Func _ReadString($sFfile = "")
    Local  $avArray[1]
    $sfile = FileOpen($sFfile, 0)
    If $sfile = -1 Then
        SetError(1, 0, 0)
        Return 0
    EndIf

    While 1
        $line = FileReadLine($sfile)
        If @error = -1 Then Return UBound($avArray) - 1
        If $line <> "" Then _ArrayAdd ($avArray, $line)
    Wend

    FileClose($sfile)
EndFunc