很急的问题,挑战vbscript的正则表达式.

[sunj2ee]

我在做一些网友的文字处理时,里面有HTML代码,我想把一些HTML去掉,又想保留一些.我想除换行,和空格(即<br>和 )的其它所有的HTML代码,请各位看官帮一下忙.我现在贴出已有的去掉所有HTML代码的过程:

'去掉所有HTML代码
Function NoHtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.*?\>)"
str=re.replace(str,"")
re.Pattern="(\<\/.*?\>)"
str=re.replace(str,"")

NoHtml=str
End Function

非常急,请大家帮帮忙

[sunj2ee]

没有人看吗?我顶一下

[GageCSDN]

Function NoHtml(str)
dim re
Set re=new RegExp
re.IgnoreCase=true
re.Global=True
re.Pattern="</?[^>]*>"
str=re.replace(str,"")
NoHtml=str
End Function

[sunj2ee]

TO:GageCSDN(稻草人--http://www.sms-web.net)
你的虽然正确
但我想达到:除<br>和 这两个代码的其他所有HTML代码.

[sunj2ee]

帮我再看看,好吗?谢谢了

[sunj2ee]

没有人能解了吗?

[恶猫]

不太可能吧/

你先

a=replace(lcase(str),"<br>","&break;")
a=reg.xxxxx
a=replace(a,"&break;","<br>")

这样来吧.