regex - VBA 正则表达式替换代码

Question

任何使用 vba 正则表达式替换代码的经验？
我已经尝试了以下方法，它们在 regex101.com 和 regexr.com 上都有效。

$&
\0

不幸的是，它们不适用于我的 VBA 代码。
有没有类似的经历？

示例: https://regex101.com/r/5Fb0EV/1

VBA代码:

    Dim MsgTxt As String
    ...

    strPattern = "(Metodo di pagamento).*\r\x07?.*"  
    With regEx
        .Global = True
        .MultiLine = True
        .IgnoreCase = True
        .Pattern = strPattern
        MsgTxt = regEx.Replace(MsgTxt, "\0#END")
    End With

输入字符串:

Metodo di pagamento selezionato: 
Mastercard 

预期输出:

Metodo di pagamento selezionato: 
Mastercard #END

Answer 1

试试下面的代码:

Sub test()

    Dim MsgTxt As String

    MsgTxt = Chr(7) & "Metodo di pagamento selezionato:" & vbCr & Chr(7) & "Mastercard "
    With New RegExp
        .Global = True
        .MultiLine = True
        .IgnoreCase = True
        .Pattern = "(Metodo di pagamento.*\r\x07?.*)"
        MsgTxt = .Replace(MsgTxt, "$1#END")
    End With
    Debug.Print MsgTxt

End Sub

输入

Metodo di pagamento selezionato:
Mastercard

输出

Metodo di pagamento selezionato:
Mastercard #END