Question

vb文本处理

2010356 2010-12-29 02 06 08 14 29 30 32 06
2010357 2010-12-30 09 16 20 21 22 28 30 30
2010358 2010-12-31 01 06 17 18 19 26 27 18
2011001 2011-1-1 02 09 22 23 29 33 36 36怎么把前面的2010356 2010-12-29都去掉

Answer 1

稍微修改下浪花的：
Private Sub Command1_Click()
Dim a1(10)
a1(1) = "2010356 2010-12-29 02 06 08 14 29 30 32"
a1(2) = "2010357 2010-12-30 09 16 20 21 22 28 30"
a1(3) = "2010358 2010-12-31 01 06 17 18 19 26 27"
a1(4) = "2011001 2011-1-1 02 09 22 23 29 33 36 36"
For i = 1 To 4
m = InStr(1, a1(i), " ") '找到第一个空格
m = InStr(m + 1, a1(i), " ") '从第一个空格后面开始，再找第二个空格
a1(i) = Mid(a1(i), m + 1) '截取第二个空格后一个字符开始 到 最后的字符
Print a1(i)
Next i

End Sub

Answer 2

如果长度固定的话用mid函数
不固定的话用Split函数将字符串分拆後再将需要的内容组合。
也可以用正则表达式处理。

Answer 3

程序如下，已经过测试，请采纳

Private Sub Command2_Click()
Dim a1(10)
a1(1) = "2010356 2010-12-29 02 06 08 14 29 30 32"
a1(2) = "062010357 2010-12-30 09 16 20 21 22 28 30"
a1(3) = "302010358 2010-12-31 01 06 17 18 19 26 27"
a1(4) = "182011001 2011-1-1 02 09 22 23 29 33 36 36"
For i = 1 To 4
m = InStr(1, a1(i), " ")
a2 = Right(a1(i), Len(a1(i)) - m): m = InStr(1, a2, " "): a2 = Right(a2, Len(a2) - m): Print a2
Next i
End Sub