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
