[Данные, строки] Число строк в файле

#include <Array.au3>

$sText = FileRead(@ScriptDir & '\Test.txt')
$aFirst_Three_Digits = StringRegExp($sText, '(?m)^\d{3}', 3)
If Not @error Then
	_ArrayDisplay($aFirst_Three_Digits)
Else
	MsgBox(16, 'Error', 'StringRegExp')
EndIf

$sFile = @ScriptDir & '\test.txt'
$hFile = FileOpen($sFile, 0)
Do
    $sLine = FileReadLine($hFile)
    $err = @error
    MsgBox(0, '', $sLine)
Until $err = -1

$hFile = FileOpen(@ScriptDir & "\test.txt")
$hRead = FileRead($hFile)
$hNumb = StringSplit($hRead, @CRLF, 1)
MsgBox(0, "", $hNumb[0])

Global $hTemp

$hFile = FileOpen(@ScriptDir & "\test.txt")
$hRead = FileRead($hFile)

$hNumb = StringSplit($hRead, @CRLF, 1)
For $i = 1 To $hNumb[0]
	$hTemp &= $i & " = " & StringLeft($hNumb[$i], 3) & @CRLF
Next	

MsgBox(0, "", "Число строк = " & $hNumb[0] & @CRLF & "Первые 3 символа каждой строки:" & @CRLF & $hTemp)

MsgBox(0, '', UBound(StringRegExp(FileRead(@ScriptDir&'\file.txt'), '(\r\n|\r|\n)', 3))+1)

MsgBox(0, '', UBound(StringRegExp(FileRead(@ScriptDir&'\file.txt'), '([^\v]+)', 3))+1)