如何去除字符串中除了汉字和字母外的其它字符,诸如标点,换行符,或乱码的符号……谢谢。

解决方案 »

  1.   

    Dim strTest As String
    strTest = "ijfio09u3ui乱hf9o*(&*%^(*Y" & vbCrLf & "iohhvujisb测试一下"Dim i As Integer
    For i = 1 To 127
        If (i < 65) Or (i > 90 And i < 97) Or i > 122 Then strTest = Replace(strTest, Chr(i), "")
    Next
    Debug.Print strTest
      

  2.   

    把它们一个个读出来看一下它们的ASCII码是多少
      

  3.   

    chewinggum的方法对于长度大于127的字串还是最优的.. 要是小于127,还不如WuYunpeng说的逐一校验ASC..