'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 2009
'
'==========================================================================

Function RegExReplace(strString,strPattern,strReplace)
On Error Resume Next
    Dim RegEx
    Set RegEx = New RegExp				' Create regular expression.
    RegEx.IgnoreCase = True				' Make case insensitive.
    RegEx.Global=True                   'Search the entire String
    RegEx.Pattern=strPattern
        
    If RegEx.Test(strString) Then       'Test if match is made
        RegExReplace = regEx.Replace(strString, strReplace)	' Make replacement.
     Else
         'return original string   
         RegExReplace=strString
    End If
End Function

Function RegExMatch(strString,strPattern)
    Dim RegEx
    RegExMatch=False
    
    Set RegEx = New RegExp				
    RegEx.IgnoreCase = True				
    RegEx.Global=True                   
    RegEx.Pattern=strPattern
    
    If RegEx.Test(strString) Then RegExMatch=True

End Function 

Function GetMatch(strString,strPattern)
    Dim RegEx,arrMatches
    Set RegEx = New RegExp				
    RegEx.IgnoreCase = True				
    RegEx.Global=True                   
    RegEx.Pattern=strPattern
    Set colMatches=RegEx.Execute(strString)
    Set GetMatch=colMatches
End Function

strString="'The quick brown dog jumped over the lazy fox'"
strPattern="dog"
strReplace="cat"

strRevised=RegExReplace(strString,strPattern,strReplace)

WScript.Echo strString & " is now " & strRevised