'============================================================.
'Nom de la fonction: scripthtml
'Effet: filtrez les balises HTML
'Arguments: CONSTR ----------------------------------------------------------------------------------------------------------------------
'============================================================.
FunctionScripThtml (ByValConstr, Tagname, Ftype)
Tabac
SetRe = newRegexp
Re.ignorecase = true
Re.global = true
SelectCasefType
Cas1
Re.pattern = "<" & tagname & "([^>]) *>"
Contr = Re.replace (Contr, "")
Cas2
Re.pattern = "<" & tagname & "([^>]) *>. *? </" & Tagname & "([^>]) *>"
Contr = Re.replace (Contr, "")
Cas3
Re.pattern = "<" & tagname & "([^>]) *>"
Contr = Re.replace (Contr, "")
Re.Pattern = "</" & tagname & "([^>]) *>"
Contr = Re.replace (Contr, "")
Se licez
Scripthtml = CONSTRAL
Setdre = rien
Finition de fin