论坛 › 已解决问题区 › 怎样得到文本文件中有多少行？

huangque 发表于 2009-4-24 05:48:56

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

本帖最后由 huangque 于 2009-4-25 06:17 编辑

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

sensel 发表于 2009-4-24 06:22:10

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

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

hhasee 发表于 2009-4-24 08:51:31

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

seominho 发表于 2009-4-24 13:45:47

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

skyfree 发表于 2009-4-24 15:40:07

_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 发表于 2009-4-25 06:16:40

感谢！问题解决。

查看完整版本: 怎样得到文本文件中有多少行？