regEx replace
"Robert Crandal" wrote:
'--------------------------------------------------------
Sub myregex()
Dim regEx As New VBScript_RegExp_55.RegExp
Dim str As String
str = "Call me at (982)555-1234!"
regEx.Pattern = "(...)...-...."
regEx.Global = True
regEx.IgnoreCase = True
MsgBox regEx.Replace(str, "*")
End Sub
If I wasn't clear, the output message should be:
*************
But, I would also be happy if the output was:
(***)***-****
Either way is fine, but the first is better.
|