28,407
社区成员
发帖
与我相关
我的任务
分享Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = false
objRegExp.Global = True
'过滤4位以上数字,
objRegExp.Pattern="(\d{4,})"
strHTML=objRegExp.replace(strHTML,"*")
'过滤网址的正则
objRegExp.Pattern="^(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?$"
strHTML=objRegExp.replace(strHTML,"*")