'=======================================================================
'Nome da função: scripthtml
'Efeito: filtrar tags html
'Argumentos: Constr --------------------------------------------------------------------------------------------------------------------------------------------
'=======================================================================
FunctionsCripthtml (ByValconstr, Tagname, FTYPE)
Dimre
Setre = newRegexp
Re.IGNORECASE = true
Re.global = true
SelectCaseFtype
Case1
Re.pattern = "<" & tagname & "([^>])*>"
Construção = re.Replace (construt, "")
Case2
Re.pattern = "<" & tagname & "([^>])*>.*? </" & Tagname & "([^>])*>" "
Construção = re.Replace (construt, "")
Case3
Re.pattern = "<" & tagname & "([^>])*>"
Construção = re.Replace (construt, "")
Re.pattern = "</" & tagname & "([^>])*>"
Construção = re.Replace (construt, "")
EndSelect
Scripthtml = constr
Setre = nada
Função final