2.8w+
社区成员
- 主页
一个简单的正则匹配问题
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/>之类的不要匹配如何修改？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
zhuyongzhao 2009-08-31
谢谢了
我没有把那个“.”去掉，我说怎么一直匹配不了
我没有把那个“.”去掉，我说怎么一直匹配不了
hookee 2009-08-31
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 2009-08-31
自己顶一个
