999999

[[it] 本帖最后由 wenmzh 于 2008-9-17 13:36 编辑 [/it]]

Private Sub Command1_Click()
Dim s As String
Dim flag As Integer
flag = 0

Open "C:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
If flag Mod 6 = 0 Then
Print Mid(s, 3, 1)
End If
flag = flag + 1
Loop
Close #1
End Sub

多看些字符串的函数

以后题目不要写成那样，否则没人回答的

知道了 ，谢谢

好像无法显示和保存所提取的数据啊？