请教下这种情况的分割，为什么这结果呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教下这种情况的分割，为什么这结果呢？

共有3700人关注过本帖树形打印复制链接主题：请教下这种情况的分割，为什么这结果呢？

ndxfke

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

加好友

发短信

等级：三尾狐帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00

请教下这种情况的分割，为什么这结果呢？ 发帖心情

Post By：2014/6/3 16:15:00 [只看该作者]

测试代码：

    Dim Mac As String
    Dim MacBy() As String
    Mac = filesys.ReadAllText(ProjectPath & "\server\config.txt")
    output.show(mac)   ‘---- 字符串
    MacBy = mac.Split("BY-ZYXL-DATE")   ’-- 分割字符
    output.show(macby.Length) '--- 长度
    For Each by As String In macby   '-- 取值
        output.show(by)
    Next

_------------------------------------------------------------------------------------

测试结果：

tYJ1GihojEOxgkisdVVtUOFWOSiKjVbGZwe/RU7y6GQ2uBb893J7XQ==BY-ZYXL-DATE-20140603
3
tYJ1GihojEOxgkisdVVtUOFWOSiKjVbGZwe/RU7y6GQ2u
b893J7XQ==
Y-ZYXL-DATE-20140603

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/3 16:18:00 [只看该作者]

分割字符，只能是单个字符

Dim Mac As String
Dim MacBy() As String
Mac = filesys.ReadAllText(ProjectPath & "\server\config.txt")
mac = mac.replace("BY-ZYXL-DATE", chr(11))
output.show(mac)   '---- 字符串
MacBy = mac.Split(chr(11))   '-- 分割字符
output.show(macby.Length) '--- 长度
For Each by As String In macby   '-- 取值
    output.show(by)
Next

ndxfke

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

加好友

发短信

等级：三尾狐帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00

Post By：2014/6/3 16:21:00 [只看该作者]

哦，

懂了。默认取第一个字条

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

主题：请教下这种情况的分割，为什么这结果呢？