子程序引用

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