子程序引用

Sub 子程序引用()  '有可能是递归
'(?R)            递归整个表达式
'(?n)            通过绝对编号引用捕获组
'(?+n)           通过相对编号引用捕获组
'(?-n)           通过相对编号引用捕获组
'(?&name)        通过名称引用捕获组 (Perl)
'(?P>name)       通过名称引用捕获组 (Python)
'\g<name>        通过名称引用捕获组 (Oniguruma)
'\g'name'        通过名称引用捕获组 (Oniguruma)
'\g<n>           通过绝对编号引用捕获组 (Oniguruma)
'\g'n'           通过绝对编号引用捕获组 (Oniguruma)
'\g<+n>          通过相对编号引用捕获组 (PCRE2扩展)
'\g'+n'          通过相对编号引用捕获组 (PCRE2扩展)
'\g<-n>          通过相对编号引用捕获组 (PCRE2扩展)
'\g'-n'          通过相对编号引用捕获组 (PCRE2扩展)

reg.Pattern = "(?<word>\w+)\s+(?&word)\s+\w+"
Set mc = reg.Execute("abc def ghi")
Debug.Print mc(0).Value

'还有更多复杂用法，我未深入研究

End Sub