Better:
Function RemoveMatch(LookIn, PatternStr, Optional ReplaceWith = "")
Dim re As Object
Set re = CreateObject("VBScript.Reg
With re
.Pattern = PatternStr
.Global = True
End With
RemoveMatch = re.Replace(LookIn, ReplaceWith)
Set re = Nothing
End Function
Main Topics
Browse All Topics





by: matthewspatrickPosted on 2005-09-28 at 14:53:05ID: 14979490
Try this:
Exp")
Function RemoveMatch(LookIn, PatternStr)
Dim re As Object
Set re = CreateObject("VBScript.Reg
With re
.Pattern = PatternStr
.Global = True
End With
RemoveMatch = re.Replace(LookIn, "")
Set re = Nothing
End Function
Patrick