Asp 正则表达式替换方法anReg()

 

'正则替换
' @param  strHTML      源字符串
' @param  strAny       Pattern正则表达式
' @param  strResult    替换为，支持$1
' @return  string
Function anReg(strHTML,strAny,strResult)
  Dim objRegExp, Match, Matches, tmp
  tmp = strHTML
  Set objRegExp = New Regexp
  objRegExp.IgnoreCase = True'忽略大小写
  objRegExp.Global = True
  objRegExp.Pattern=strAny
  anReg=objRegExp.Replace(tmp,strResult)
  Set objRegExp = Nothing
End Function