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
第二种:
复制代码 代码如下:
Function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="<(.[^>]*)>" str=re.replace(str,"") nohtml=str set re=nothing End Function