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
