vb读取文本文件中的第三行的第2个字符

Open "a.txt" For Input As #1 '读方式打开文件
Line Input #1, Data '第一二行跳过
Line Input #1, Data
Line Input #1, Data '第三行是
s=right(left(Data,3),1)

Private Sub Command1_Click()
Dim i As Integer
Dim s As String
Dim szFileName As String

szFileName = "c:\1.txt"
Open szFileName For Input As #1
For i = 1 To 3
If Not EOF(1) Then Line Input #1, s
Next i
Close #1

Print Mid$(s, 2, 1)'第二个字符
Print Mid$(s, 3, 1)'第三个字符

End Sub

一行一行读取，然后取第三行的第二个字符就可以了！
open …… for input as #1
input #1,q1
input #1,q2
input #1,q3
input #1,q4
input #1,q5
close #1
s=mid(q3,2,1)

可以读出所有内容后用split函数进行分割，返回的数组第2项就是第3行的内容，再用取左mid就可以得到第2个字符了。。。