VBA: 正则表达式(10) -非捕获组(?:Expression)

文章背景： 最近在看同事写的VBA正则表达式，发现其中用到了非捕获组(?:Expression)。因此，本文对非捕获组的用法做了一些研究。

1 捕获组2 非捕获组3 非捕获组的应用场景

1 捕获组

捕获是指在正则表达式中使用括号来匹配和提取一部分文本。这个被括号包裹的部分被称为捕获组，可以通过VBA代码访问和处理。例如，正则表达式(foo)d 会匹配以foo开头，后面跟着一个或多个数字的字符串。其中(foo)是一个捕获组，表示我们要匹配和提取的是以foo开头的部分。

代码示例：

代码语言：javascript复制

Sub TestRegExp()

    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    Dim inputString As String
    
    inputString = "123-45"
    
    ' 设置正则表达式模式
    regex.Pattern = "(d{3})-(d{2})"
    
    ' 执行匹配
    Dim matches As Object
    Set matches = regex.Execute(inputString)
    
    ' 输出捕获组的内容
    If matches.Count > 0 Then
    
        MsgBox "捕获组 1: " & matches(0).SubMatches(0) & vbCrLf & "捕获组 2: " & matches(0).SubMatches(1)
        
    Else
        MsgBox "没有匹配"
    End If
    
End Sub

对于正则表达式：(d{3})-(d{2})，有两个捕获组，分别是 (d{3}) 和 (d{2})。这两个捕获组分别匹配三个数字和两个数字的模式。

代码运行结果：

2 非捕获组

非捕获是指在正则表达式中使用括号来分组，但不会创建一个新的捕获组。非捕获组以问号冒号加圆括号的形式表示，例如(?:foo)d 。这个正则表达式会匹配以foo开头，后面跟着一个或多个数字的字符串，但不会创建一个新的捕获组。在VBA中，我们无法访问或处理非捕获组。

代码示例：

代码语言：javascript复制

Sub TestNonCapturingGroup()

    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    Dim inputString As String
    
    inputString = "a1234b"
    
    ' 设置正则表达式模式
    regex.Pattern = "a(d{2})(?:d{2})b"
    
    ' 执行匹配
    Dim matches As Object
    Set matches = regex.Execute(inputString)
    
    ' 输出捕获组的内容
    If matches.Count > 0 Then
    
        MsgBox "捕获组 1: " & matches(0).SubMatches(0)
        
    Else
        MsgBox "没有匹配"
    End If
    
End Sub

对于正则表达式：a(d{2})(?:d{2})b，(d{2}) 是一个捕获组，匹配两个数字，并且 (?:d{2}) 是一个非捕获组，也匹配两个数字。整个模式匹配的字符串是以 "a" 开头，两个数字，再加两个数字，最后是字母 "b"。

代码运行结果：