如何读取一个文本文件有多少行

zlmyongheng · 发表于 2009-5-31 09:15:20

如何读取一个文本文件有多少行

南一 · 发表于 2009-5-31 10:08:42

本帖最后由南一于 2009-5-31 10:10 编辑

用 _FileReadToArray函数

示例：

#include <file.au3>
Dim $aRecords
If Not _FileReadToArray("test.txt",$aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
MsgBox(0,"","一共"&$aRecords[0]&"行")
For $x = 1 to $aRecords[0]
        
    Msgbox(0,'Record:' & $x, $aRecords[$x])
Next

newsunman · 发表于 2009-5-31 10:54:07

好莱坞好莱坞

sensel · 发表于 2009-5-31 12:42:00

这个问题不久之前也有人提过，回贴里有最简答案。请善用论坛搜索功能。

_FileCountLines
--------------------------------------------------------------------------------
Returns the number of lines in the specified file.

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

sxd · 发表于 2009-5-31 14:41:08

btw:_FileCountLines好像对中文统计的不对(年代久远了记不清反正这个有bug) 不知道现在修复了没

zlmyongheng · 发表于 2009-5-31 15:06:43

谢谢帮忙啊，你们用的好像是新版本吧，难怪没找到这个函数

lynfr8 · 发表于 2009-5-31 19:07:08

上面的解决方法非常好的了
原始的也有一个
就是$count=$count+1
当循环读完文本就可以计算出行数了
这个是比较笨的方法哦

fzlrfzlr · 发表于 2009-6-1 18:52:41

谢谢分享~~~~~~~~~~~~~

huangdi0731 · 发表于 2009-9-17 20:36:05

倒,为什么进来还要扣钱啊

qq342252004 · 发表于 2009-10-8 09:19:53

学习了....

menfan · 发表于 2009-10-8 10:15:15

温习一下，呵呵

zisedk · 发表于 2009-10-16 17:59:09

不错学习了一个问题

81206954 · 发表于 2009-11-19 13:15:30

不错学习学习~~~~~

ahkang · 发表于 2009-12-16 18:04:38

谢谢二楼的南一！您的回帖让我又学会了一招。
此前，我一直都是在使用 While……WEnd 这样的循环来读取，只有读取到预设的关键字（词）时才跳出循环，经常都有陷入死循环的情形发生，如今再也不会发生类似现象了！再次感谢……

afan · 发表于 2009-12-16 18:22:36

用 _FileCountLines 就行了

用户名		自动登录	找回密码
密码			加入

如何读取一个文本文件有多少行

评分