字符串替换 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符串替换

共有3343人关注过本帖树形打印复制链接主题：字符串替换

bagabaga

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：138 积分：1325 威望：0 精华：0 注册：2014/3/10 19:43:00

字符串替换

Post By：2014/8/19 14:34:00 [显示全部帖子]

请教，替换字符串中的控制字符

1、读入的文件中有特殊换行字符&#xA（见附图）; 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")

‘显示特殊字符

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

bagabaga

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：138 积分：1325 威望：0 精华：0 注册：2014/3/10 19:43:00

Post By：2014/8/19 15:12:00 [显示全部帖子]

1、传上例子文件，其中有一个表，一个代码，一个要读入的XML文件

2、打开表，运行代码，读入XML文件至列[Xmtz]

3、注意到读入的列中，有的内容显示不出来，因为有特殊字符&#xA，双击单元格可以显示后面的字符

4、用软件UltraEdit可以看到XML文件中有16进制的特殊字符&#xA；

5、请教如何去掉这些特殊字符，谢谢

bagabaga

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：138 积分：1325 威望：0 精华：0 注册：2014/3/10 19:43:00

Post By：2014/8/19 15:13:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:代码.rar

bagabaga

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：138 积分：1325 威望：0 精华：0 注册：2014/3/10 19:43:00

Post By：2014/8/19 15:26:00 [显示全部帖子]

其中的特殊字符不是换行符

下一主题 >> << 上一主题

主题：字符串替换