Posted By

wizard04 on 09/11/09

Tagged

Versions (?)

Last Edited at 09/11/09 11:53am

Statistics

Viewed 1146 times

Favorited by 2 user(s)

Related snippets

VBScript Regular Expression Search and Replace Functions

/ Published in: ASP

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

Expand | Embed | Plain Text

Copy this code and paste it in your HTML

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