VBA正则切取字符串中的英文和数字和下划线

最新推荐文章于 2022-09-15 18:59:25 发布

Henchyoung

最新推荐文章于 2022-09-15 18:59:25 发布

阅读量1.4k

点赞数 1

分类专栏：学习笔记文章标签： vba 正则表达式字符串

本文链接：https://blog.csdn.net/qq_39540224/article/details/111826296

版权

学习笔记专栏收录该内容

21 篇文章 17 订阅

订阅专栏

Function RegTest(ByVal sText As String) As String

    '定义正则表达式对象

    Dim oRegExp As Object

    '定义匹配字符串集合对象

    Dim oMatches As Object

    '创建正则表达式
    Dim a As String
    


    '定义要执行正则查找的文本变量

    Set oRegExp = CreateObject("vbscript.regexp")

    With oRegExp

        '设置是否匹配所有的符合项，True表示匹配所有, False表示仅匹配第一个符合项

        .Global = True

        '设置是否区分大小写，True表示不区分大小写, False表示区分大小写

        .IgnoreCase = True

        '设置要查找的字符模式

        '.Pattern = "[^x00-xff%&',;=?$x22]"
        .Pattern = "[A-Za-z0-9_]+"

        '判断是否可以找到匹配的字符，若可以则返回True

        MsgBox .Test(sText)

        '对字符串执行正则查找，返回所有的查找值的集合，若未找到，则为空

        Set oMatches = .Execute(sText)

        '把字符串中用正则找到的所有匹配字符替换为其它字符
        MsgBox (oMatches(0))
        
        a = oMatches(0)
        
        RegTest = a
        
        MsgBox .Replace(sText, "")

    End With

    Set oRegExp = Nothing

    Set oMatches = Nothing

End Function

Sub a()

    Dim Text As String
    
    Text = "这个是pooST11AD：USE=湖综后或者pooDACAO=NOT_USEDH笔记本大家"

    ak = RegTest(Text)
    
    MsgBox (ak)
    
End Sub