
vb.net如何读取txt文本的第三行,这个程序怎么写?
1个回答
2013-09-21
展开全部
我以前做过,现在手头没代码和NET环境不便帮你调试。不过给你提供个vb6的代码,语法修改下即可。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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询