以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎样遍历一个文本的内容？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98354)
--  作者：54292550
--  发布时间：2017/3/28 16:11:00
--  怎样遍历一个文本的内容？
我有一个文本文件内容记录的是两组数据(例如A和B)，中间是；分割。
例如：
0；0
0.1；0.125
0.2；0.126
0.3；0.244
0.4；0.560
0.5；0.648
。。。。。

怎样依次赋值给我的A变量和B变量？
--  作者：有点色
--  发布时间：2017/3/28 17:27:00
--  

参考代码

 

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(","))