实现对字符串正则替换的函数

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

如：
htmlstr=123imgsrc=asdf.gifborder=045b6/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
tags:to"实现对字符串正则替换的函数"LeaveaReply
名称(*)
邮箱
网站链接
验证(*)
正文(*)(留言最长字数:1000)