如何直接获取文本档案总使用行数
ASCII码的文字档案
是否有方法可以直接取得行数
而不用使用程序去一行一行数
[解决办法]
Dim B As String
Dim A As String
Dim f As Integer
Dim L as Long
f=FreeFile()
open "a.txt" as input as #f
B=input(LOF(f),f)
close #f
A=Replace(B,vbLF,"",1,-1,0)
L=Len(B)-Len(A)
debug.print "a.txt has "+CStr(L)+" line(s)."
[解决办法]
用文件映射,统计vbcrlf的个数.
