关于找到TXT的行数

神奇的VBA

比如，我想很快到TXT文档中的某行，除了用Line Input #1, tmp
这个语句以外，还有没有其他好点的办法？

liulang0808

可以直接将文本内容一次性读取出来
或者也可以用excel文件打开，然后处理

一把小刀闯天下

'数据量不大可用这方法，不然会产生假死机。

Option Explicit

Const NUM = 5 '第5行

Sub test()
  Dim filename, arr
  filename = "d:\abc.txt"
  If Dir(filename) = vbNullString Then MsgBox "!": Exit Sub
  Open filename For Input As #1
  arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
  Close #1
  If UBound(arr) + 1 < NUM Then MsgBox "!!": Exit Sub
  MsgBox arr(NUM - 1)
End Sub

神奇的VBA

liulang0808 发表于 2018-7-22 08:23
可以直接将文本内容一次性读取出来
或者也可以用excel文件打开，然后处理

由于数据量远超104万行，所以这个方法行不通

神奇的VBA

一把小刀闯天下 发表于 2018-7-22 10:00
'数据量不大可用这方法，不然会产生假死机。

Option Explicit

请问 Const NUM = 5 '第5行 这句的意思是直接跳转吗？刚查了一下，const强制声明，但这样的话，相当于还是得一条条的找，并不是直接跳转，看来还得想想别的路子。