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