摘要:
'正则替换' @param strHTML 源字符串' @param strAny Pattern正则表达式' @param strResult 替换为,支持$1' @return stringFunction anReg(strHTML,strAny,strResult) Dim objRegExp, Match, Matches, tmp tmp = strHTML Set objRegExp = New Regexp objRegExp.IgnoreCase = True'忽略大小写 objRegExp.Global = True objR 阅读全文