从文本框里提交过来的内容，如何过滤掉连续4位以上的数字和网址，把它们用*号代替？

[没你自在]

asp中用request.form("text")从文本框里提交过来的内容，现在想过滤掉连续4位以上的数字和网址，把它们用*号代替，怎么写呢？大家帮帮忙

[没你自在]

还没有人回答吗？

[number123456]

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

[没你自在]

number123456 你好，过滤连续数字的正则很好用，过滤网址的正则怎么不行呀，我内容里的网址是http://www.aaaaaa.com 形式的

[number123456]

如果只是http://www.aaaaaa.com这种型式的可以换个正则
http:\/\/(\w+)(\.(\w+))+
试试

[没你自在]

我又改进了一下过滤网址的

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

结贴！

[没你自在]

我先试试啊，好的话结贴^_^

[markhao]

正则....真牛.

[aimie]

楼上的答案堪称完美.