VB中如何实现去掉汉字后不可见字符

Question

VB中如何实现去掉汉字后空格，回车，换行之类的不可见字符不可见字符
trim好像不是很适用

Answer 1

Private Sub Command1_Click()
Dim s As String
s = "你想要的字符" & vbLf + vbCrDebug.Print Len(s)s = RemoveSomeChar(s)Debug.Print Len(s)
End SubPrivate Function RemoveSomeChar(ByVal s As String) As String
     
    Do Until Right(s, 1) <> vbLf And Right(s, 1) <> vbCr
       s = Left(s, Len(s) - 1)
    Loop
     
     RemoveSomeChar = s
End Function

Answer 2

trim只能去除空格，你这个可以根据具体情况自己定义一个处理函数...

Answer 3

试一试For i = 0 To 32
s = Replace(s, Chr(i), "")
Next