dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(.[^]*)"
str=re.replace(str," ")
re.Pattern="(\/[^]*)"
str=re.replace(str," ")
str=replace(str," ","")
str=replace(str," ","")
nohtml=str
set re=nothing
end function
猜你喜欢