scripting - 计算文本文件中的行数的函数

Question

需要一个接受文件名作为参数的函数，然后返回该文件中的行数。

应该花不到 30 秒的时间来获得 1000 万行文件的计数。

目前有一些类似的东西 - 但是大文件太慢了:

Dim objFSO, strTextFile, strData, arrLines, LineCount
CONST ForReading = 1

'name of the text file
strTextFile = "sample.txt"

'Create a File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Open the text file - strData now contains the whole file
strData = objFSO.OpenTextFile(strTextFile,ForReading).ReadAll

'Split by lines, put into an array
arrLines = Split(strData,vbCrLf)

'Use UBound to count the lines
LineCount = UBound(arrLines) + 1

wscript.echo LineCount

'Cleanup
Set objFSO = Nothing

Answer 1

如果有人仍在寻找更快的方法，这里是代码:

Set fso = CreateObject("Scripting.FileSystemObject") 
Set theFile = fso.OpenTextFile("C:\textfile.txt", 8, True) 
WScript.Echo theFile.Line 
Set Fso = Nothing

当然，处理时间很大程度上取决于文件大小，而不仅仅是行数。与RegEx 方法TextStream.Line 属性相比至少快了3 倍。