vb6.0 读取文本文件帮助

Question

如何才能读取一个文本文件指定的某一行？（不要一行一行的读到那一行！）设文件：C:\1.TXT
不会的不要说。要完整代码！谢谢~！（请勿复制来忽悠我啊）

Answer 1

文件指针是顺序读取的。无法指定到某一行。
假设要读取第50行的文本。
方法1：读取所有文本到字串，然后Split转成行数组。
Function readline(txtpath As String, linenum As Integer) As String
Dim filetxt As String, x As Variant, i As Integer
filetxt = String(FileLen(txtpath), " ")
Open txtpath For Binary As 1
Get #1, , filetxt
Close 1
x = Split(filetxt, vbCrLf)
If linenum > UBound(x) Then MsgBox "行溢出", 64, "err!": Exit Function
If linenum <= UBound(x) Then readline = x(linenum - 1)
Set x = Nothing
End Function

Private Sub Command1_Click()
MsgBox readline("c:\1.txt", 50)
End Sub
方法2：一行一行的读到指定行。
Dim szFileName As String
Dim szInputData As String
Dim i As Integer

szFileName = App.Path & "\1.txt"

Open szFileName For Input As #1
Do While Not EOF(1)
i = i + 1
If i = 50 Then
Line Input #1, szInputData
Text1.Text = szInputData
End If
Loop
Close #1

Answer 2

可以用判断法读指定的行:

Dim a As String, b As Integer, d As Integer
a = ""
b = 0
c = InputBox("请输入指定的行号:", "输入行号", 30)
Open "d:\a.txt" For Input As #1
Do While Not EOF(1)
a = Input$(1, #1)
If a = Chr(13) Then b = b + 1
If b = c Then
Line Input #1, a
Text1.Text = a
Exit Do
End If
Loop
Close