VBA Regex substitution codes

Question

any experience with vba regex substition codes? I've tried the followings, which are working both on regex101.com and on regexr.com.

$&
\0

They are unfortunately not working in my VBA code. Any similar experience?

Example: https://regex101.com/r/5Fb0EV/1

VBA code:

    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

Input string:

Metodo di pagamento selezionato: 
Mastercard

Expected ouput:

Metodo di pagamento selezionato: 
Mastercard #END

can't display here but each line has a chr(7) at the beginning — Andrew
– Andrew, Commented Nov 24, 2019 at 15:13

omegastripes · Accepted Answer · 2019-11-24 21:47:08Z

2

Try the below code:

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

Input

Metodo di pagamento selezionato:
Mastercard

Output

Metodo di pagamento selezionato:
Mastercard #END

answered Nov 24, 2019 at 21:47

omegastripes

12.6k4 gold badges52 silver badges105 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA Regex substitution codes

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related