VBScript正则表达式搜索和替换函数

Posted 2021-02-26

Functions to make using regular expressions a bit easier. They're named after the respective php 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