RegReplace(str,regexStr,RepalceStr) 对str 进行正则替换 如： htmlstr = "123<img src="http://www.21kn.com/Files/BeyondPic/2007-7/8/077800462554261.gif"" border=""0"">45<b>6</b>"
htmlstr2 = RegReplace(htmlstr,"<(.[^><]*)>","") 返回 htmlstr2 为123456 Function RegReplace(Str,PatternStr,RepStr)
Dim NewStr,regEx
NewStr = Str
if isnull(NewStr) then
RegReplace = ""
exit function
end if
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern=PatternStr
NewStr = regEx.Replace(NewStr,RepStr)
RegReplace = NewStr
end function |
