ASP自定义函数：对字符串正则替换

2022-07-15 80酷酷网 80kuku.com

　　函数|正则|字符串

RegReplace(str,regexStr,RepalceStr)对str进行正则替换

如：

htmlstr="123<imgsrc=http://itdowns.com/edu/asp/20070123/""asdf.gif""border=""0"">45<b>6</b>"
htmlstr2=RegReplace(htmlstr,"<(.[^><]*)>","")

返回htmlstr2为123456

FunctionRegReplace(Str,PatternStr,RepStr)
DimNewStr,regEx
NewStr=Str
ifisnull(NewStr)then
RegReplace=""
exitfunction
endif
SetregEx=NewRegExp
regEx.IgnoreCase=True
regEx.Global=True
regEx.Pattern=PatternStr
NewStr=regEx.Replace(NewStr,RepStr)
RegReplace=NewStr
endfunction