'================================================================
اسم الوظيفة: scripthtml
"التأثير: تصفية علامات HTML
"الحجج: Const ----------------------------------------------------------------------------------------------------------------
'================================================================
FunctipthTML (byvalconstr ، tagname ، ftype)
Dimre
setre = newregexp
re.ignorecase = صحيح
re.global = صحيح
seleccaseftype
Case1
re.pattern = "<" & tagname & "([^>])*>"
const = re.replace (const ، "")
Case2
re.pattern = "<" & tagname & "([^>])*>.*؟ </" & tagname & "([^>])*>"
const = re.replace (const ، "")
Case3
re.pattern = "<" & tagname & "([^>])*>"
const = re.replace (const ، "")
re.pattern = "</" & tagname & "([^>])*>"
const = re.replace (const ، "")
endselect
scripthtml = constr
setre = لا شيء
الوظيفية