查看完整版本: VB 中如何把 回车 或 换行符去掉？

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

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

用Replace函数

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

谢谢！
问题已经解决！
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

Please try the following script:

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

[quote]原帖由 [i]walker1020[/i] 于 2008-5-12 11:46 发表 [url=http://bbs.51testing.com/redirect.php?goto=findpost&pid=966482&ptid=114464][img]http://bbs.51testing.com/images/common/back.gif[/img][/url]
If Trim(a) = Trim(b)  Then
        MsgBox "a=b"
Else
    MsgBox "ab"
End If [/quote]
如果是字符串换行后还有值，Trim就不适用了吧，呵呵
如str = "aaaa"&Chr(13) & Chr(10)&"bbbb"

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

[quote]原帖由 [i]dengzhy[/i] 于 2008-5-12 13:42 发表 [url=http://bbs.51testing.com/redirect.php?goto=findpost&pid=966615&ptid=114464][img]http://bbs.51testing.com/images/common/back.gif[/img][/url]
4 楼的方法不可行！
Trim 是去字符串的“空格”方法；
对于 回车符 或 换行符 无效！
已试验过！ [/quote]

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

学习一下。