以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教下这种情况的分割，为什么这结果呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51789)
--  作者：ndxfke
--  发布时间：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

 

 

 

 

 

 
--  作者：有点甜
--  发布时间：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
--  发布时间：2014/6/3 16:21:00
--  

哦，

 

懂了。默认取第一个字条