怎样遍历一个文本的内容？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样遍历一个文本的内容？

共有1226人关注过本帖树形打印复制链接主题：怎样遍历一个文本的内容？

54292550

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：283 积分：4123 威望：0 精华：0 注册：2011/8/19 10:07:00

怎样遍历一个文本的内容？ 发帖心情

Post By：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变量？

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

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

下一主题 >> << 上一主题

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