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

hacker85

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

jdmlw

一个字：牛
两个字：很好！

livewire

没有文件 未经验证!
With CreateObject("Scripting.FileSystemObject").OpenTextFile(filename, 1)
    .readall
   msgbox  "Total Lines: " &  .line
end with

zyb1223

{:soso_e129:}

wpxxsyzx

不错，学习了

Εlf

学习了。{:soso_e128:}

liucqa

学习         

jinxiacong

强大，学习了。{:soso_e183:}

Zamyi

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

虽然老贴，象是未解决占用大内存问题， 45M文件还出错，速度也不怎的。

1. Sub test()
   
2. Dim sF$, F%, a() As Byte
   
3. sF = ThisWorkbook.Path & "\2.txt"
   
4. F = FreeFile
   
5. Open sF For Binary As F
   
6. ReDim a(LOF(F) - 1)
   
7. Get F, , a
   
8. For i = 0 To UBound(a)
   
9.   If a(i) = 10 Then n = n + 1
   
10. Next
    
11. Close F
    
12. MsgBox n + 1
    
13. End Sub

复制代码

wwwruc

我一个600M的txt文件，有没有办法实现呢？貌似说内存溢出。