28,409
社区成员




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,"*")