本人的问题如下：
在记事本中有多行数据，每隔6行提取一行数据，且只提取改行中第三个数据，提取完后把其保存到另外的记事本中，
以下代码是一位高人提供，可是无法显示和保存提取的数据，请问各位大侠，问题出在哪里？很急，我明天就谣用这个程序，希望本论坛的各位大侠帮助小弟解决这个问题！！！！！！！！！！！！！！！



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

Print Mid(s, 3, 1)

第三个数据是指第三个字符还是空格分出来的第三个字符串？
你说明不讲清楚别人怎么帮你解决问题呢？

第三个字符串，比如

1   2    3   我要提取的是3

请不要只看不发表建议

那么Print那行就是不符合你的要求的了。

Dim arr
While Instr(s,"  ")
  s=Replace(s,"  "," ")
Wend
arr=Split(s," ")
Print arr(2) ' 3-1=2

可以了，谢谢楼上的大侠，我的问题是初学者对VB函数没有掌握，在这个大家庭里面真是受益匪浅