Question

vb读取文本中的第n行字

假如一文本中有300行字
怎样从这个文本文件读取第200行字的字
要求速度快
有不用循环的方法吗，要是读取第100000行呢

Answer 1

用lineinput啊

前提你的文件是dos格式

for i =1 to 200
line input #1,temp_str
next

#1,打开的文件号,temp_str 是你要的字符串

快速... 多快算快啊

不用循环... 除非你的文件非常规整,每一行的长度都是一样的或有规律可循,就是如果你知道第N行起始的字节数,那么就可以用 seek ,将文件指针直接跳到你读取行的第一个字节数,再input 就行

Answer 2

Dim hang, i As Integer, path, str As String
'path为文件路径名,hang为要读取的行数,str为要读取行数的内容
Open path For Input As #1
Do While Not EOF(1)
i = i + 1
Input #1, str
If i = hang Then
Exit Do
End If
Loop
If i < hang Then
MsgBox "你要读取的文件行数只有" & i & "行！", vbOKOnly, "错误"
End If
Close #1
MsgBox "第" & hang & "行内容为：" & vbCrLf & str, vbOKOnly, "提示"

Answer 3

简便的方法，引用VBS
Dim objTxt,fso,Line
Const ForReading=1
Set fso=CreateObject("Scripting.FileSystemObject")
Set objTxt=fso.OpenTextFile(InputBox("请输入文本路径","InputBox"),ForReading)
Line=CLng(InputBox("要读第几行？","InputBox"))
For i=1 To Line-1
objTxt.SkipLine
Next
MsgBox objTxt.ReadLine