用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

定义外部调用正则

2020-08-08 作者:麒麟举报

[vb]代码库

Dim oMatches As Object
Dim sText As String
dim myregexp
Set myregexp = CreateObject("vbscript.regexp")
With myregexp
 '设置是否匹配所有的符合项,True表示匹配所有, False表示仅匹配第一个符合项
        .Global = True
        '设置是否区分大小写,True表示不区分大小写, False表示区分大小写
        .IgnoreCase = True
        '设置要查找的字符模式
        .Pattern = "[\u4e00-\u9fa5]+"
        '判断是否可以找到匹配的字符,若可以则返回True
        MsgBox .Test(sText)
        '对字符串执行正则查找,返回所有的查找值的集合,若未找到,则为空
        Set oMatches = .Execute(sText)
        '把字符串中用正则找到的所有匹配字符替换为其它字符
        MsgBox .Replace(sText, "")
    End With
Set myregexp= Nothing
Set oMatches = Nothing


分享到:
更多

网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。