'==========================================================================
'Имя функции: scripthtml
'Effect: Filter HTML -теги
'Аргументы: создать --------------------------------------------------------------------------------------------------------------------------------------
'==========================================================================
FunctionScripThtml (byvalconstr, tagname, ftype)
Димре
Setre = newRegexp
Re.ignorecase = true
Re.global = true
SelectCaseFtype
Case1
Re.pattern = "<" & Tagname & "([^>])*>"
Constra = re.replace (constr, "")
Case2
Re.pattern = "<" & Tagname & "([^>])*>.*? </" & Tagname & "([^>])*>"
Constra = re.replace (constr, "")
Случай 3
Re.pattern = "<" & Tagname & "([^>])*>"
Constra = re.replace (constr, "")
Re.pattern = "</" & Tagname & "([^>])*>"
Constra = re.replace (constr, "")
Endselect
Scripthtml = constr
Setre = ничего
Конечная функция