论坛 › 已解决问题区 › 如何读取一个文本文件有多少行

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&"行")
For $x = 1 to $aRecords
      
    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 就行了

查看完整版本: 如何读取一个文本文件有多少行