- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 字符串替换 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55574)
-- 发布时间：2014/8/19 14:34:00
-- 字符串替换
请教，替换字符串中的控制字符
1、读入的文件中有特殊换行字符
（见附图）; 16进制 26 23 78 44 3B 26 23 78 41 3B ASC码 38 35 120 68 59 和38 35 120 65 59
2、编写以下代码运行，去不掉
Dim dt As Table = Tables("Qdmx")
Dim m As Integer = dt.Rows.count
For i As Integer = 0 To m-1
dt.Rows(i)("Xmtz") =dt.Rows(i)("Xmtz").Replace(Val("&H" & "26") & Val("&H" & "23") & Val("&H" & "78") & Val("&H" & "44") & Val("&H" & "3B"),"20")
Next
‘显示特殊字符
Output.Show(CHR(38)&CHR(35)&CHR(120)&CHR(68)&CHR(59))
output.show(Val("&H" & "26") & Val("&H" & "23") & Val("&H" & "78") & Val("&H" & "44") & Val("&H" & "3B"))
Output.Show(CHR(38)&CHR(35)&CHR(120)&CHR(65)&CHR(59))
output.show(Val("&H" & "26") & Val("&H" & "23") & Val("&H" & "78") & Val("&H" & "41") & Val("&H" & "3B"))
此主题相关图片如下：捕获.png
-- 发布时间：2014/8/19 14:38:00
--
例子带上样品字符发出来
-- 发布时间：2014/8/19 15:02:00
--
例子发上来才好测试。
-- 发布时间：2014/8/19 15:12:00
--
1、传上例子文件，其中有一个表，一个代码，一个要读入的XML文件
2、打开表，运行代码，读入XML文件至列[Xmtz]
3、注意到读入的列中，有的内容显示不出来，因为有特殊字符
，双击单元格可以显示后面的字符
4、用软件UltraEdit可以看到XML文件中有16进制的特殊字符
；
5、请教如何去掉这些特殊字符，谢谢
-- 发布时间：2014/8/19 15:13:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.rar |
-- 发布时间：2014/8/19 15:18:00
--
你是想去掉换行符是吧?
For Each dr As DataRow In DataTables("Qdmx").DataRows
dr("Xmtz")=dr("Xmtz").replace(vbcrlf,"")
Next
-- 发布时间：2014/8/19 15:22:00
--
或者，你可以设置自动行高
http://www.foxtable.com/help/topics/1552.htm
-- 发布时间：2014/8/19 15:26:00
--
其中的特殊字符不是换行符
-- 发布时间：2014/8/19 15:31:00
--
以下是引用bagabaga在2014-8-19 15:26:00的发言：
其中的特殊字符不是换行符
其中的特殊字符不是换行符
你运行6楼代码，看效果，或者，用7楼知识点去显示。