'======================================================================
'Nama Fungsi: ScripThtml
'Efek: Filter Tag HTML
'Argumen: Constr ----------------------------------------------------------------------------------------------------------------------
'======================================================================
Functionscripthtml (byvalconstr, tagname, ftype)
Dimre
Setre = newregexp
Re.ignorecase = true
Re.global = true
SELECTCASEFTYPE
Case1
Re.pattern = "<" & tagname & "([^>])*>"
Constr = re.replace (Constr, "")
Kasus2
Re.pattern = "<" & tagname & "([^>])*>.*? </" & Tagname & "([^>])*>"
Constr = re.replace (Constr, "")
Kasus3
Re.pattern = "<" & tagname & "([^>])*>"
Constr = re.replace (Constr, "")
Re.pattern = "</" & tagname & "([^>])*>"
Constr = re.replace (Constr, "")
Endselect
Scripthtml = Constr
Setre = tidak ada
Fungsi endfungsi