51Testing软件测试论坛

标题: VB 中如何把回车或换行符去掉？ [打印本页]

作者: dengzhy 时间: 2008-5-12 10:44
标题: VB 中如何把回车或换行符去掉？
EG：
Dim a , b
a = "此机构编码已经被其他机构使用，请更改！
"
b = "此机构编码已经被其他机构使用，请更改！"
If a = b Then
MsgBox "a=b"
Else
MsgBox "a<>b"
End If
其中，字符串 a 中包含了个回车键

作者: zte_boy 时间: 2008-5-12 11:15
用Replace函数

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

作者: dengzhy 时间: 2008-5-12 11:36
谢谢！
问题已经解决！
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 时间: 2008-5-12 11:46
标题: Please try the following script:
If Trim(a) = Trim(b) Then
MsgBox "a=b"
Else
MsgBox "a<>b"
End If

作者: zte_boy 时间: 2008-5-12 13:33

原帖由 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 时间: 2008-5-12 13:42
4 楼的方法不可行！
Trim 是去字符串的“空格”方法；
对于回车符或换行符无效！
已试验过！

作者: walker1020 时间: 2008-5-13 21:25

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

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

作者: heqingbluesky 时间: 2008-5-14 11:37
学习一下。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)