VBA之正则表达式（41）-- 替换函数声明

实例需求：对于函数声明代码的参数部分进行规范化处理，Boolean类型参数全部使用ByVal方式，效果如下图所示。

示例代码如下。

Sub Demo()
    Dim strTxt, strNewTxt
    Dim objRegExp As Object
    strTxt = "Function Foo(v1 As Boolean, v, " & _
             "Optional v3 As Boolean = True, " & _
             "Optional ByVal cmpMethod As VbCompareMethod = vbTextCompare, " & _
             "Optional ByVal bStringLike As Boolean, " & _
             "Optional bShowWarning As Boolean = True) As Long"
    Set objRegExp = CreateObject("vbScript.Regexp")
    With objRegExp
        .Global = True
        .Pattern = "(\(|, )(Optional )*(\S+? As Boolean)"
        strNewTxt = .Replace(strTxt, "$1$2ByVal $3")
    End With
    Debug.Print strTxt
    Debug.Print
    Debug.Print strNewTxt
    Set objRegExp = Nothing
End Sub

【代码解析】
第4~8行代码为待处理的函数声明字符串。
第9行代码创建正则对象。
第11行代码设置全局匹配。
第12行代码设置匹配规则

正则表达式	说明
`((	, )`
(Optional )*	匹配Optional关键字，可以不存在，第二个匹配组
(\S+? As Boolean)	匹配至少一个非空白字符（变量名称），之后为As Boolean，第三个匹配组

第13行代码执行正则替换。
第15~17行代码输出原字符串和替换后的字符串。
第18行代码释放对象变量所占用的系统资源。