functionnohtml(str)

dimre

Setre=newRegExp

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

setre=nothing

endfunction