以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]MessageBox和Output的显示结果不一样-已解决  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131116)
--  作者：shenyl0211
--  发布时间：2019/2/17 14:47:00
--  [求助]MessageBox和Output的显示结果不一样-已解决
假设d盘根目录下的IP.txt 两行内容如下（两个硬回车换行）：
c
d

命令窗口代码：
Dim a As String = FileSys.ReadAllText("d:\\IP.txt")
Dim b() As String = a.split(vbcrlf)
MessageBox.Show(1 & b(0) & 1)
MessageBox.Show(1 & b(1) & 1)
Output.Show(1 & b(0) & 1)
Output.Show(1 & b(1) & 1)

MessageBox.Show(1 & b(0) & 1)的结果：
1c1
MessageBox.Show(1 & b(1) & 1)的结果：
1
d1
Output.Show(1 & b(0) & 1)的结果：
1c1
Output.Show(1 & b(1) & 1)的结果：
1d1
项目实际执行的是MessageBox.Show(1 & b(1) & 1)的结果，不是Output.Show(1 & b(1) & 1)的结果，但需要的是Output.Show(1 & b(1) & 1)的结果。

请测试求证：这是狐表的问题吗？（我已用两台电脑、win7和win10两个系统测试过了）。

谢谢！




[此贴子已经被作者于2019/2/18 13:46:14编辑过]
--  作者：有点蓝
--  发布时间：2019/2/18 10:19:00
--  
Dim b() As String = a.replace(vbcr,"").split(vblf)
--  作者：shenyl0211
--  发布时间：2019/2/18 13:46:00
--  
谢谢蓝版
--  作者：shenyl0211
--  发布时间：2019/8/2 10:30:00
--  
今天验证了一下《宝典》第354页第15行的split代码：split(chr(13),chr(10))，是错的，会增加一个空值，只能用蓝版的方法。另外，搜索了整个帮助文档，也都是先替换换行（或回车），然后用回车（或换行）拆分的思路。