vb6 如何读取文件指定行内容

vb6 如何读取文件指定行内容

Private Sub command1_click()
Dim s1 As String
Dim s2 As String
Dim ss As String
Dim tem As String
Open "D:\123.txt" For Input As #1
Line Input #1, s1
Do While Not EOF(1)
Line Input #1, tem
If tem = "" And s1 = "" Then
Line Input #1, tem
ss = tem
Exit Do
Else
s1 = tem
End If
Loop
Close #1
Text1.Text = ss
End Sub

Private Sub command2_click()
Dim s1 As String
Dim s2 As String
Dim ss As String
Dim tem As String
Open "D:\123.txt" For Input As #1
Line Input #1, s1
Do While Not EOF(1)
Line Input #1, tem
If tem = "" And s1 = "" Then
Line Input #1, tem
ss = tem
Exit Do
Else
s1 = tem
End If
Loop

Line Input #1, tem
s1 = tem
ss = ss & Chr(13) + Chr(10) & s1
Do While Not EOF(1)
Line Input #1, tem
If tem = "" And s1 = "" Then
Exit Do
Else
ss = ss & Chr(13) + Chr(10) & tem
s1 = tem
End If
Loop
Close #1

Text2.Text = ss
End Sub

注意：Text2点Multiline要设为true，还有，文件地址自己改一下

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

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