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


  共有3047人关注过本帖平板打印复制链接

主题:字符串替换

帅哥哟,离线,有人找我吗?
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")
    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
图片点击可在新窗口打开查看


 回到顶部