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
set re=nothing
end function
------------------------
菜鸟学习,该函数是不是用空格过滤UBB代码?

把HTML的标记&lt;....&gt;给替换成空串

也就是去掉str中的所有html标记
&lt;...&gt;&lt;/...&gt;

re.Pattern="(\&lt;.[^\&lt;]*\&gt;)"
re.Pattern="(\&lt;\/[^\&lt;]*\&gt;)"
有什么区别?

好心人..........

前一个是&lt;....&gt;这类标记的正则表达式
后一个是&lt;/...&gt;这类标记的正则表达式

谢谢渚薰