以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]MessageBox和Output的显示结果不一样-已解决  (http://foxtable.net/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)),是错的,会增加一个空值,只能用蓝版的方法。另外,搜索了整个帮助文档,也都是先替换换行(或回车),然后用回车(或换行)拆分的思路。