怎样利用VB编码读取TXT文本中的一行？
展开全部
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来控制行数。当到达了第三行，就输出到文本框，然后退出循环。
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来控制行数。当到达了第三行，就输出到文本框，然后退出循环。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
