有一种空格，怎么也去不掉，Trim 和 Replace 都联合夹攻了

Question

本帖最后由 lzxbl04 于 2010-01-19 13:05:05 编辑

Answer 1

那个不是空格 是看不见的 Chr(0)aa=replace(aa,chr(0),"")

Answer 2

应该不是普通的空格而是一种其它的无法显示的符号,看一看它的ASCII码就知道了.

Answer 3

用1楼和2楼大哥的方法，都没见效请教老张，该空格现在是放在EXCEL中，那该如何来查看它的ASCII码

Answer 4

不是没有效 而是 你从网页上复制下来的字符串 导入 rs.Fields(0).Value 时就已无法导入了你再怎样Replace也没用要先用一个文字变量导入网页上复制下来的字符串再将此变量用Replace处理完后再赋值给  rs.Fields(0).Value 

Answer 5

网页上的不论是UniCode UTF-8 大都含有 Chr(0)

Answer 6

我查了下，那些空格的ASCII码确实是160，可还是替换不了，可能正如 cbm666 大哥所说，有些字符不能正确导入

Answer 7

Private Sub Form_Load()
   Dim a As String
   a = "aaa" & Chr(160) & "BBB"
   a = Replace(a, Chr(160), "")
   Debug.Print a
   
End Sub

Answer 8

那个页面是在一个用户帐号里，所以无法给出页面地址不过小弟已经上传了那个Excel文件，有时间的大侠研究下哈http://www.opendrive.com/files/6008086_BeEB9/123.xls　

Answer 9

看不懂啊猴哥，其实我的程序是一个把EXCEL导入ACCESS，如果EXCEL中存在真正意义上的空格，那么会被成功删除，如果存在那个从网页上复制下来的莫名其妙的字符，则无法截取和替换掉

Answer 10

我看不见，所以不知道是不是这个，反正我把这个复制到replace的代码也没成功

Answer 11

Private Sub Form_Load() 
  Dim a As String 
  a = "aaa" & ChrW(12288) & "BBB" 
  a = Replace(a, ChrW(12288), "") 
  Debug.Print a 
End Sub

Answer 12

rs.Fields(0).Value = Trim(rs.Fields(0).Value)
rs.Fields(0).Value = Replace(rs.Fields(0).Value, Chr(160), "")

Answer 13

rs.Fields(0).Value = Trim(rs.Fields(0).Value) 
rs.Fields(0).Value = Replace(rs.Fields(0).Value, Chr(160), "")

Answer 14

这个刚才试过了，不行的，我先说一下我是如何知道它是160的，我把Excel里的那个空白字符选中复制，然后到　http://www.weste.net/tools/ASCII.asp　这里转换得知，这样测试行不行

Answer 15

先格
strtest = String$(1024, Chr(32))
取值
----处理
strtest = Left(Trim(strtest), Len(Trim(strtest)) - 1)

Answer 16

rs.Fields(0).Value = Trim(rs.Fields(0).Value)
For i = 0 To Len(rs.Fields(0).Value)
s = Mid(rs.Fields(0).Value)
Debug.Print Asc(s)
Next
'这样输出每一个字符的ASCII码,将其中不能显示的符号替换为空串就行了

Answer 17

这个文件中的数据至少要如下处理：
    s = Replace(s, Chr(-352), vbNullString)
    s = Replace(s, Chr(0), vbNullString)
    s = Replace(s, Chr(32), vbNullString)
    s = Replace(s, Chr(255), vbNullString)