51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 12608|回复: 7
打印 上一主题 下一主题

[原创] VB 中如何把 回车 或 换行符去掉?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-5-12 10:44:07 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
EG:
Dim a , b
a = "此机构编码已经被其他机构使用,请更改!
"
b = "此机构编码已经被其他机构使用,请更改!"
If a = b  Then
        MsgBox "a=b"
Else
    MsgBox "a<>b"
End If     
其中,字符串 a 中包含了个回车键
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2008-5-12 11:15:01 | 只看该作者
用Replace函数

Dim a,str
a = "此机构编码已经被其他机构使用,请更改!
"
str = Replace(a, Chr(13) & Chr(10) , "")
Msgbox(str)
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2008-5-12 11:36:44 | 只看该作者
谢谢!
问题已经解决!
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
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    4#
    发表于 2008-5-12 11:46:53 | 只看该作者

    Please try the following script:

    If Trim(a) = Trim(b)  Then
            MsgBox "a=b"
    Else
        MsgBox "a<>b"
    End If
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
    发表于 2008-5-12 13:33:22 | 只看该作者
    原帖由 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"
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
     楼主| 发表于 2008-5-12 13:42:58 | 只看该作者
    4 楼的方法不可行!
    Trim 是去字符串的“空格”方法;
    对于 回车符 或 换行符 无效!
    已试验过!
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    7#
    发表于 2008-5-13 21:25:16 | 只看该作者
    原帖由 dengzhy 于 2008-5-12 13:42 发表
    4 楼的方法不可行!
    Trim 是去字符串的“空格”方法;
    对于 回车符 或 换行符 无效!
    已试验过!


    谢谢你的反馈。既然不行,那就换一种方法吧。呵呵!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
    发表于 2008-5-14 11:37:09 | 只看该作者
    学习一下。
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-10 21:45 , Processed in 0.076455 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表