以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]excel换行符  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125059)
--  作者：maomaoxw
--  发布时间：2018/9/19 9:48:00
--  [求助]excel换行符
老师好，定义了一个xls.book类型的变量，取回excel单元格的值中间有换行符，怎样把换行符删除？
比如
dim bk as xls.book
dim sh as bk.sheets(0)
if sh(2,3).value="abcd" then

endif

上述sh(2,3).value取回的值中，“ab” 与“cd”中间有一个换行符，怎样去除？
dim s as string
s=sh(2,3).value
s=s.replace(vbcrlf,"")
messagebox.show(s)
结果显示没有去除。
--  作者：有点甜
--  发布时间：2018/9/19 9:52:00
--  

试试改成

 

s=s.replace(chr(10), "").replace(chr(13), "")
--  作者：cbt
--  发布时间：2018/9/19 9:52:00
--  

下表是常用的、不可见的字符编码表：

字符 编码
回车符 13
换行符 10
Tab符 9

例如在MessageBox显示信息的时候，希望分行显示：

MessageBox.Show("如果你认真学习了，你会觉得" & Chr(13) & Chr(10) & "Visual Basic一点不难！", "提示")
--  作者：maomaoxw
--  发布时间：2018/9/19 11:06:00
--  
谢谢版主，问题已解决。