[求助]VB读取数据文件的求助

xmok · 发表于 2008-10-31 21:54:00

1    X=-6.6660 Y=-9.0000 Z=7.5926
2    X=-5.0010 Y=-10.6386 Z=9.2911
3    X=-8.3340 Y=-10.6386 Z=9.2911
4    X=-13.3320 Y=-9.0000 Z=7.5926
5    X=-11.6670 Y=-10.6386 Z=9.2911
6    X=-15.0000 Y=-10.6386 Z=9.2911
7    X=-19.9980 Y=-9.0000 Z=7.5926
8    X=-18.3330 Y=-10.6386 Z=9.2911
9    X=-21.6660 Y=-10.6386 Z=9.2911
10    X=-26.6640 Y=-9.0000 Z=7.5926
11    X=-24.9990 Y=-10.6386 Z=9.2911
12    X=-28.3320 Y=-10.6386 Z=9.2911
13    X=-36.6630 Y=-9.0000 Z=7.5926
14    X=-34.9980 Y=-10.6386 Z=9.2911
15    X=-38.3310 Y=-10.6386 Z=9.2911
16    X=-5.0010 Y=-7.6322 Z=9.8935
17    X=-8.3340 Y=-7.6322 Z=9.8935
18    X=-11.6670 Y=-7.6322 Z=9.8935
19    X=-15.0000 Y=-7.6322 Z=9.8935
20    X=-18.3330 Y=-7.6322 Z=9.8935
我想得到每一行等号之后的数据，有没有好的办法快速得到？
在这里先谢谢各位大侠了。

王咣生 · 发表于 2008-11-1 14:25:00

用两次Split函数，第一次以空格分割，第二次以"="分割.
例如:
Sub test()
Dim s As String
s = "20    X=-18.3330 Y=-7.6322 Z=9.8935"
Dim v As Variant
v = VBA.Split(s, " ")

Dim col As New Collection
Dim i As Integer
For i = LBound(v) To UBound(v)
      If VBA.InStr(1, v(i), "=") > 0 Then
         Dim vv As Variant
         vv = VBA.Split(v(i), "=")
         col.Add vv(1)
      End If
Next

'显示结果
For i = 1 To col.Count
      MsgBox col(i)
Next
End Sub