反向引用/回溯

Sub 反向引用()
    '数字反向引用
    ' `\\1`, `\\g1`, `\\g{1}` - 引用第1个捕获组
    ' `\\2`, `\\g2`, `\\g{2}` - 引用第2个捕获组
    ' `\\3`, `\\g3`, `\\g{3}` - 引用第3个捕获组
    reg.Pattern = "(ab)(\\1)(\\g1)(\\g{1})"
    Set mc = reg.Execute("ababababc")
    Debug.Print mc(0).Value
    
    '先复习命名捕获组
    ' `(?<name>...)` - Perl命名捕获组
    ' `(?'name'...)` - Perl另一种命名捕获组
    ' `(?P<name>...)` - Python命名捕获组
    
    '命名反向引用
    ' `\\k<name>` - Perl风格的命名反向引用
    ' `\\k'name'` - 单引号语法Perl
    ' `\\k{name}` - .NET语法
    ' `\\g{name}` - 通用命名引用语法Perl语法
    ' `(?P=name)` - Python风格语法
    reg.Pattern = "(?<wd>\\w+)\\s+\\w+\\s+(\\k<wd>)"
    Set mc = reg.Execute("hello world hello")
    Debug.Print mc(0).Value
    
    '相对反向引用
    ' `\\g{-1}`, `\\g{-2}`... - 倒数第1，2个捕获组
    ' `\\g{+1}`, `\\g{+2}`... - 正数第1，2个捕获组（TODO:目前似乎不支持，RegBuddy里也不支持这种语法)
    reg.Pattern = "(x)(y)\\g{1}\\g{-1}"
    Set mc = reg.Execute("`xyxy")
    Debug.Print mc(0).Value
End Sub

-------------------------------------------------------------------------

Sub 回溯()
'  \\n              reference by number (can be ambiguous)
'  \\gn             reference by number
'  \\g{n}           reference by number
'  \\g+n            relative reference by number (PCRE2 extension)
'  \\g-n            relative reference by number
'  \\g{+n}          relative reference by number (PCRE2 extension)
'  \\g{-n}          relative reference by number
'  \\k<name>        reference by name (Perl)
'  \\k'name'        reference by name (Perl)
'  \\g{name}        reference by name (Perl)
'  \\k{name}        reference by name (.NET)
'  (?P=name)       reference by name (Python)
End Sub