主题：怎样遍历一个文本的内容？

参考代码

Dim str As String = "0;0" & vbcrlf & "0.1;0.125"
msgbox(str)
Dim a As String = ""
Dim b As String = ""
For Each s As String In str.Replace(chr(10), "").split(chr(13))
    Dim ary() As String = s.Split(";")
    a &= ary(0) & ","
    b &= ary(1) & ","
Next
msgbox(a.Trim(","))
msgbox(b.Trim(","))