VBA 中正则表达式的命名组

使用VBA中的正则表达式命名组可以帮助我们更高效地处理文本数据。正则表达式是一种强大的文本模式匹配工具，通过使用命名组，我们可以给匹配到的子字符串赋予一个有意义的名称，方便后续的处理和使用。

vba
Sub TestRegexNamedGroups()
    Dim regEx As Object
    Dim match As Object
    Dim pattern As String
    
    ' 创建正则表达式对象
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 设置正则表达式的模式
    pattern = "(?\d{4})-(?\d{2})-(?\d{2})"
    
    ' 设置要匹配的文本
    regEx.Pattern = pattern
    Dim inputText As String
    inputText = "今天的日期是2022-01-01"
    
    ' 执行匹配
    If regEx.test(inputText) Then
        ' 获取匹配结果
        Set match = regEx.Execute(inputText)(0)
        
        ' 获取命名组的值
        Dim year As String
        year = match.submatches.Item("year")
        
        Dim month As String
        month = match.submatches.Item("month")
        
        Dim day As String
        day = match.submatches.Item("day")
        
        ' 输出结果
        MsgBox "年份：" & year & vbCrLf & _
               "月份：" & month & vbCrLf & _
               "日期：" & day
    End If
    
    ' 释放对象
    Set regEx = Nothing
End Sub

vba
Sub ExtractEmailAndPhone()
    Dim regEx As Object
    Dim matches As Object
    Dim match As Object
    Dim pattern As String
    
    ' 创建正则表达式对象
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 设置正则表达式的模式
    pattern = "(?[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,})"
    pattern = pattern & "|"
    pattern = pattern & "(?\d{11})"
    
    ' 设置要匹配的文本
    Dim inputText As String
    inputText = "我的邮箱是test@example.com，手机号码是13812345678"
    
    ' 执行匹配
    regEx.Global = True
    regEx.Pattern = pattern
    Set matches = regEx.Execute(inputText)
    
    ' 输出结果
    For Each match In matches
        If match.submatches.Item("email") <> "" Then
            MsgBox "邮箱：" & match.submatches.Item("email")
        ElseIf match.submatches.Item("phone") <> "" Then
            MsgBox "手机号码：" & match.submatches.Item("phone")
        End If
    Next match
    
    ' 释放对象
    Set regEx = Nothing
End Sub