'=========================================================================
'Nombre de la función: scripttml
'Efecto: filtro de etiquetas HTML
'Argumentos: Construcción ------------------------------------------------------------------------------------------------------------------
'=========================================================================
Functionscripthtml (byvalconstr, tagname, ftype)
Dimre
Setre = newregexp
Re.ignorecase = True
Re.global = verdadero
Selección
Caso1
Re.pattern = "<" & tagName & "([^>])*>"
Constr = re.replace (construye "")
Caso2
Re.pattern = "<" & tagName & "([^>])*>.*? </" & TagName & "([^>])*>"
Constr = re.replace (construye "")
Case3
Re.pattern = "<" & tagName & "([^>])*>"
Constr = re.replace (construye "")
Re.pattern = "</" & tagName & "([^>])*>"
Constr = re.replace (construye "")
EndSelectar
Scripttml = construye
Setre = nada
Función final