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

xmok

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    

我想得到每一行等号之后的数据，有没有好的办法快速得到？

在这里先谢谢各位大侠了。

王咣生

用两次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

兰州人

这是字符分离问题.

要点Split(s, " ")关键语句.

mccad

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

AirCD

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

mccad

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

robbin840311

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

AirCD

恩,学习了,谢谢两位.

zqbxfev

学习到一点啊，确实比较方便！

顶一下！谢谢了！

xmok

谢谢了。