'****************************************
' Functions to make using regular expressions a bit easier. They're named after the respective PHP function.
' 
' Got these from http://www.addedbytes.com/asp/vbscript-regular-expressions/
'****************************************

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 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

'****************************************
' Functions to make using regular expressions a bit easier. They're named after the respective PHP function.
' 
' Got these from http://www.addedbytes.com/asp/vbscript-regular-expressions/
'****************************************/

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 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

'got these from http://www.addedbytes.com/asp/vbscript-regular-expressions/

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 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

http://www.addedbytes.com/asp/vbscript-regular-expressions/

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

VBScript Regular Expression Search and Replace Functions

regex, regexp, ASP

ASP