VB 中如何把 回车 或 换行符去掉？

dengzhy

EG：
Dim a , b
a = "此机构编码已经被其他机构使用，请更改！
"
b = "此机构编码已经被其他机构使用，请更改！"
If a = b  Then
        MsgBox "a=b"
Else
    MsgBox "a<>b"
End If     
其中，字符串 a 中包含了个回车键

zte_boy

用Replace函数

Dim a,str
a = "此机构编码已经被其他机构使用，请更改！
"
str = Replace(a, Chr(13) & Chr(10) , "")
Msgbox(str)

dengzhy

谢谢！
问题已经解决！
Dim a , b
a = "此机构编码已经被其他机构使用，请更改！"
b = "此机构编码已经被其他机构使用，请更改！

a = Replace(a,vbCrLf,"")
b = Replace(b,vbCrLf,"")
If a = b  Then
        MsgBox "a=b"
Else
    MsgBox "a<>b"
End If

walker1020

If Trim(a) = Trim(b)  Then
        MsgBox "a=b"
Else
    MsgBox "a<>b"
End If

zte_boy

原帖由 walker1020 于 2008-5-12 11:46 发表
If Trim(a) = Trim(b)  Then
        MsgBox "a=b"
Else
    MsgBox "ab"
End If

如果是字符串换行后还有值，Trim就不适用了吧，呵呵
如str = "aaaa"&Chr(13) & Chr(10)&"bbbb"

dengzhy

4 楼的方法不可行！
Trim 是去字符串的“空格”方法；
对于 回车符 或 换行符 无效！
已试验过！

walker1020

原帖由 dengzhy 于 2008-5-12 13:42 发表
4 楼的方法不可行！
Trim 是去字符串的“空格”方法；
对于 回车符 或 换行符 无效！
已试验过！

谢谢你的反馈。既然不行，那就换一种方法吧。呵呵！

heqingbluesky

学习一下。