2.8w+
社区成员
- 主页
从文本框里提交过来的内容，如何过滤掉连续4位以上的数字和网址，把它们用*号代替？
asp中用request.form("text")从文本框里提交过来的内容，现在想过滤掉连续4位以上的数字和网址，把它们用*号代替，怎么写呢？大家帮帮忙
...全文
请发表友善的回复…
发表回复
aimie 2009-08-07
楼上的答案堪称完美.
markhao 2009-08-07
正则....真牛.
没你自在 2009-08-07
我先试试啊，好的话结贴^_^
没你自在 2009-08-07
我又改进了一下过滤网址的
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-]+\.)+[\w-]+(\/[\w- .\/?%&=]*)?"
strHTML=objRegExp.replace(strHTML,"*")
结贴！
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-]+\.)+[\w-]+(\/[\w- .\/?%&=]*)?"
strHTML=objRegExp.replace(strHTML,"*")
结贴！
number123456 2009-08-07
如果只是http://www.aaaaaa.com这种型式的可以换个正则
http:\/\/(\w+)(\.(\w+))+
试试
http:\/\/(\w+)(\.(\w+))+
试试
没你自在 2009-08-07
number123456 你好，过滤连续数字的正则很好用，过滤网址的正则怎么不行呀，我内容里的网址是http://www.aaaaaa.com 形式的
number123456 2009-08-06
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,"*") 没你自在 2009-08-06
还没有人回答吗？