[求助]VB读取数据文件的求助乐筑天下

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

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

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

兰州人 发表于 2008-11-1 18:32:00

这是字符分离问题.
要点Split(s, " ")关键语句.

mccad 发表于 2008-11-1 20:17:00

我的方法是先把X=，Y=和Z=删除掉，再Split，得到的数组就可以直接用了。

AirCD 发表于 2008-11-10 21:30:00

请问明总,以上你所说的方法如何实现呢?怎样删除这些数据?请指教

mccad 发表于 2008-11-10 21:49:00

这还不简单:v=Split(Replace(Replace(Replace(s,"X=",""),"Y=",""),"Z=","")," ")

robbin840311 发表于 2008-11-11 08:01:00

如明总所说，写程序就要找出最简单的规律。如果一定要使用程序替换的话，明总的办法最好；如果不使用程序替换，直接在记事本中打开，然后替换。

AirCD 发表于 2008-11-11 10:16:00

恩,学习了,谢谢两位.

zqbxfev 发表于 2008-11-21 12:25:00

学习到一点啊，确实比较方便！
顶一下！谢谢了！

xmok 发表于 2008-11-29 09:19:00

谢谢了。

页: [1]

乐筑天下's Archiver

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