VBScript – Regular Expression Search and Replace Functions

Send Us a Sign! (Contact Us!)
--> (Word) --> (PDF) --> (Text)

Functions to make using regular expressions a bit easier. They're named after the respective PHP function.

Function to Search

function ereg(strOriginalString, strPattern, varIgnoreCase)

' Function matches pattern, returns true or false
' varIgnoreCase must be TRUE (match is case insensitive) or FALSE (match is case sensitive)

dim objRegExp
set objRegExp = new RegExp
with objRegExp
.Pattern = strPattern
.IgnoreCase = varIgnoreCase
.Global = True
end with
ereg = objRegExp.test(strOriginalString)
set objRegExp = nothing
end function

Function to Replace

function ereg_replace(strOriginalString, strPattern, strReplacement, varIgnoreCase)

' Function replaces pattern with replacement
' varIgnoreCase must be TRUE (match is case insensitive) or FALSE (match is case sensitive)

dim objRegExp
set objRegExp = new RegExp
with objRegExp
.Pattern = strPattern
.IgnoreCase = varIgnoreCase
.Global = True
end with
newStr = objRegExp.replace(strOriginalString, strReplacement)
ereg_replace = newStr
set objRegExp = nothing
end function

SOURCE

LINK (snipplr.com)

LANGUAGE
ENGLISH