一个简单的正则匹配问题

[zhuyongzhao]

Public Function Replacehtml(Textstr)
       Dim Str,re
       Str=Textstr
       Set re=new RegExp
       re.IgnoreCase =True
       re.Global=True
       re.Pattern="<(.[^>]*)>"
       Str=re.Replace(Str, "")
       Set Re=Nothing
       Replacehtml=Str
End Function

这里对于<br><br/>之类的不要匹配如何修改？

[zhuyongzhao]

自己顶一个

[hookee]

Public Function Replacehtml(Textstr)
       Dim Str,re
       Str=Textstr
       Set re=new RegExp
       re.IgnoreCase =True
       re.Global=True
       re.Pattern="<([^(br)][^>]*)>"
       Str=re.Replace(Str, "")
       Set Re=Nothing
       Replacehtml=Str
End Function

[zhuyongzhao]

谢谢了
我没有把那个“.”去掉，我说怎么一直匹配不了