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

cooloaky

笔者在处理一些配置文件的交互读写时产生了这个问题。当文本文件较小时，通过readall结合split可以快速得到文本文件的行数，但如果文件很大（1M以上)，用readall读入整个字符串时，内存剧增。请教诸位方家，如何通过简单方法能快速获得文本文件的行数？

谢谢

northwolves

Function getfilelinescount(ByVal filename As String)
Dim n As Long
With CreateObject("Scripting.FileSystemObject")
With .OpenTextFile(filename, 1)
  While Not .AtEndOfStream
      .skipline
    n = n + 1
  Wend
.Close
End With
End With
getfilelinescount = n
End Function

Sub macro1()
MsgBox getfilelinescount("g:\giant.txt")
End Sub

northwolves

可以减少一个with:

Function getfilelinescount(ByVal filename As String)
Dim n As Long
With CreateObject("Scripting.FileSystemObject").OpenTextFile(filename, 1)
  While Not .AtEndOfStream
      .skipline
    n = n + 1
  Wend
.Close
End With
getfilelinescount = n
End Function

qee用

1M的开销感觉还可以接受吧?

没试过,手头不好找那么的文件试验,给点建议,试试:可能的方法除了readall,大概还有逐行读计数,ADO读取记录count.

cjcandctr

ok学习了
谢谢

zz_linux

新手学习中，感谢分享。

alzeng

以下代码打开4.3M的《全宋词》：

1. 
   
2. Sub RowCnt()
   
3.     Dim Arr, k&
   
4. 
   
5.     Open "C:\qsc.txt" For Input As #1
   
6.     Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
7.     k = UBound(Arr) + 1
   
8.     Reset
   
9.     MsgBox "此文本总行数为" & k
   
10. End Sub
    

复制代码

hanter007

强大,收藏学习了..谢谢.

hacker85

一念的代码果然强大，是何道理？！

hacker85

一念的代码果然强大，是何道理？！