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
第二種：
復(fù)制代碼 代碼如下:
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
