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

[jenny0513]

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

[倒大霉的上帝]

Private Sub Command1_Click()


Dim s As String
s = "你想要的字符" & vbLf + vbCr

Debug.Print Len(s)

s = RemoveSomeChar(s)

Debug.Print Len(s)
End Sub

Private 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

[vbman2003]

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

[东方之珠]

S=Left(S,InStr(1,S,Chr(0))-1)

[SYSSZ]

试一试

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

[weiyulin]

帮顶.....