"===================================================================================================================
'Funktionsname: scripthtml
'Effekt: Filter -HTML -Tags filtern
'Argumente: Const --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
"===================================================================================================================
Funktionscripthtml (Byvalconstr, Tagname, FTTYPE)
Dimre
Setre = newRegexp
Re.Innorecase = true
Re.global = true
SelectCaseFtype
Fall1
Re.Pattern = "<" & tagname & "([^>])*>"
Const = Re.Replace (Const, "")
Fall2
Re.Pattern = "<" & tagname & "([^>])*>.*? </" & Tagname & "([^>])*>"
Const = Re.Replace (Const, "")
Fall3
Re.Pattern = "<" & tagname & "([^>])*>"
Const = Re.Replace (Const, "")
Re.Pattern = "</" & tagname & "([^>])*>"
Const = Re.Replace (Const, "")
Endauswahl
Scripthtml = Const
Setre = nichts
Endfunktion