还是刚才的问题，关于正则

[rob123]

function Coder(s)
dim re
set re= new RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern=("<\s*(\S+).*>")
s = re.replace(s,"")
Coder = s
end function
--------------------------
我想达到就是过滤掉<>标签，比如123123<a href="">aa</a>123<image>过滤后变为123123aa123,我现在是像上面这样写的，但是结果就是把第一个<和最后一个>中间的内容全部过滤掉了。
求一正确写法。

[RexZheng]

re.Pattern=("<\s*(\S+).*>")
改成
re.Pattern="<.*?>"


以下是JS的代码,VBS一样
<script language="javascript">
var strValue = "123123<a href=\"\">aa</a>123<image>";
alert(strValue.replace(/<.*?>/ig, ""))
</script>

[littlelam]

function clear(theStr)
{
var reg=/<(.[^>]*)>/gi;
var str=theStr;
result=str.replace(reg,"");
return result;
}