[求助]如何获得大型文本文件的行数

ZHW1988

收藏学习一下

tonyibm

alzeng 发表于 2009-12-28 16:23
以下代码打开4.3M的《全宋词》：

这个果然是超级强大，我试了一个7M多的小说，结果不到1秒就出来了，
我用Powershell试了一下，
(cat C:\Tony\电子书\TXT小说\庆余年-全本.txt).count，
差不多要2秒左右，才出来结果，

牛人，

yangh71

7楼神一样的代码，测试心得不得不分享一下
Sub RowCnt()
'这个小程序只用了一句话将txt文件读取到了数组中，太经典了，神一样的代码啊！
t = Timer
Dim Arr, k&
fnum = FreeFile '这是一个内部赋值语句
Open "D:\测试数据\手套.txt" For Input As #fnum
'以下语句的解释，因为太经典了，不得不说明一下以免以后忘了：
'首先LOF语句表示用 Open 语句打开的文件的大小，该大小以字节为单位。
'然后InputB假定数据已是二进制，对其不加转换即存为变量
'StrConv 函数按指定类型转换，这里是 vbUnicode
'Split函数返回一个下标从零开始的一维数组，它包含指定数目的子字符串，分开的键值是回车 vbCrLf
Arr = Split(StrConv(InputB(LOF(fnum), 1), vbUnicode), vbCrLf)  '按【回车键】拆分这个字符成为个数组
k = UBound(Arr) + 1
Reset
Close #fnum
MsgBox "耗时：" & Timer - t
MsgBox "此文本总行数为" & k
'测试一个6MB的txt文件只用了不到4秒，T400笔记本
End Sub

yangh71

1. Sub RowCnt()
   
2. '这个小程序只用了一句话将txt文件读取到了数组中，太经典了，神一样的代码啊！
   
3. t = Timer
   
4. Dim Arr, k&
   
5. fnum = FreeFile '这是一个内部赋值语句
   
6. Open "D:\测试数据\手套.txt" For Input As #fnum
   
7. '以下语句的解释，因为太经典了，不得不说明一下以免以后忘了：
   
8. '首先LOF语句表示用 Open 语句打开的文件的大小，该大小以字节为单位。
   
9. '然后InputB假定数据已是二进制，对其不加转换即存为变量
   
10. 'StrConv 函数按指定类型转换，这里是 vbUnicode
    
11. 'Split函数返回一个下标从零开始的一维数组，它包含指定数目的子字符串，分开的键值是回车 vbCrLf
    
12. Arr = Split(StrConv(InputB(LOF(fnum), 1), vbUnicode), vbCrLf)  '按【回车键】拆分这个字符成为个数组
    
13. k = UBound(Arr) + 1
    
14. Reset
    
15. Close #fnum
    
16. MsgBox "耗时：" & Timer - t
    
17. MsgBox "此文本总行数为" & k
    
18. '测试一个6MB的txt文件只用了不到4秒
    
19. End Sub
    

复制代码

jinus2008

yangh71 发表于 2014-2-1 12:15

第12行
Arr = Split(StrConv(InputB(LOF(fnum), 1), vbUnicode), vbCrLf)  '按【回车键】拆分这个字符成为个数组
是不是应该改成
Arr = Split(StrConv(InputB(LOF(fnum), fnum), vbUnicode), vbCrLf)  '按【回车键】拆分这个字符成为个数组

kippon

手机看不到。powershell貌似厉害

jiangtaowoo

用linux命令wc，假设文件名为 c:\123.txt，输入
wc -l c:\123.txt
http://gnuwin32.sourceforge.net/packages/coreutils.htm

jhegzwjb2016

livewire 发表于 2011-7-31 09:35
没有文件 未经验证!
With CreateObject("Scripting.FileSystemObject").OpenTextFile(filename, 1)
    . ...

代码更快！非常好，学习了！

zyhui1961

livewire 发表于 2011-7-31 09:35
没有文件 未经验证!
With CreateObject("Scripting.FileSystemObject").OpenTextFile(filename, 1)
    . ...

https://club.excelhome.net/thread-1654965-1-1.html
帮助下谢谢