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

 

 

转载于:https://www.cnblogs.com/al-one/archive/2012/12/05/2803351.html