VB读取TXT文本中的一行

Question

我在c盘下建立了一个123.txt文件里面有5行数据我只想读取第3行的数据显示在text里【VB6做】 请问代码要怎么写 谢谢了

Answer 1

Private Sub Command1_Click()
Open "C:\123.txt" For Input As #1
n = 0
Do While Not EOF(1)
Line Input #1, a
n = n + 1
If n = 3 Then
Text1.Text = a
Exit Do
End If
Loop
Close #1
End Sub

这样就可以了。用n来控制行数。当到达了第三行，就输出到文本框，然后退出循环。

Answer 2

Dim I As Integer, T As String
Open "123.txt" For Input As #1
For I = 1 To 3
Line Input #1, T
Next
Text1.Text = T