怎样得到文本文件中有多少行？

huangque

求教：
如何得知一个文本文件中有多少行？

sensel

$aArray = StringSplit(FileRead($sFile), @CRLF, 1)
$aArray[0] 就是你要的东东

详解：先用FileRead读入整个文件，再用StringSplit将读入变量按换行回车符分解为数组，数组单元0代表有效内容总数，也就是文件行数。

hhasee

学习了，非常有用，下来试试看！

seominho

#Include<File.au3>
_FileCountLines($filePath)

skyfree

_Main()

Func _Main()
        Local $File
        Local $sum
        $File = @ScriptDir & "\test.txt" ;<--你要读的文件
        $sum = _CountLines($File)
        If $sum = -1 Then
                MsgBox(0, "错误", "不能打开文件")
        Else
                MsgBox(0, "读取完毕", $File & " 共" & $sum & "行")
        EndIf
        Exit
EndFunc   ;==>_Main

Func _CountLines($File)
        Local $m = 0, $t
        Local $FileHandle
        $FileHandle = FileOpen($File, 0)
        If $FileHandle = -1 Then
                Return -1
        Else
                While 1
                        $t = FileReadLine($FileHandle)
                        If @error = -1 Then
                                ExitLoop
                        Else
                                $m = $m + 1
                        EndIf
                WEnd
        EndIf
        FileClose($FileHandle)
        Return $m
EndFunc   ;==>_CountLines

huangque

感谢！问题解决。