vb6读取文本

vb6读取文本

比如说你上面那个TXT文件，在我电脑中的位置是C:\Documents and Settings\Administrator\1.txt
然后我实例读出第二行。

Private Sub Command1_Click()
Dim str As String
Open "C:\Documents and Settings\Administrator\1.txt" For Input As #1
Seek #1, 7
Line Input #1, str
Text1.Text = str
End Sub

那么Text1.Text 就会输出文本 TEXT2追问请问那一句代码是读第二行的？Seek #1, 7吗？谢！追答是的

seek函数的语法是
Seek#文件号，位置
意思是文件指针跳到指定位置，以字节为单位。

我写的Seek #1, 7 就是跳到#1的第7个字符的位置，也就是第二行追问那能不能不管第一行几个字符直接截取第二行呢？谢谢！追答可以的。
我把代码改了一下，这样就可以实现直接查看第几行

Private Sub Command1_Click()
Open "C:\Documents and Settings\Administrator\1.txt" For Input As #1
Dim str As String
Dim row As Integer
Line Input #1, str
Static str2 As String
str2 = str
row = InputBox("请输入要查询的行数")
If row = 1 Then
Text1.Text = str
Else
For i = 1 To (row - 1)
a = a + Len(str2) + 2
Seek #1, a
Line Input #1, str2
Text1.Text = str2
Next i
End If
Close #1
End Sub

说具体点，是随机读取，还是打印

Line Input #1, tmpstr

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息