نسخة الكود كما يلي:
'=========================================
"الوصف الوظيفي: إزالة علامات HTML بانتظام
لا يمكن الاحتفاظ بها ، وما إلى ذلك ، ومعرفة المستخدم <و>
'=========================================
FunctionRemoveHtmltag (FSTRING)
Dimre
setre = newregexp
re.ignorecase = صحيح
re.pattern = "<(. [^>]*)>"
fstring = re.replace (fstring ، "")
setre = لا شيء
removeHtmltag = fString
الوظيفية
'=========================================
الوصف الوظيفي: إزالة علامات HTML
لا يمكن الاحتفاظ بها ، وما إلى ذلك ، ومعرفة المستخدم <و>
'=========================================
functionRemove_HTML (STR)
Dimilen1 ، Ilen2
dowhileinstr (1 ، str ، "<" ، 1)> 0
Ilen1 = instr (1 ، str ، "<" ، 1)
Ilen2 = instr (1 ، str ، ">" ، 1)
str = left (str ، Ilen1-1) & mid (str ، ilen2+1)
حلقة
remove_html = str
الوظيفية
'=========================================
الوصف الوظيفي: إزالة علامات HTML
قد تكون إزالة العلامات المخصصة بطيئة بعض الشيء
'=========================================
functionRemoveHtml (strtext)
dimtaglist
taglist = "؛!-؛! doctype ؛ a ؛ اختصار ؛ العنوان ؛ applet ؛ area ؛ b ؛ base ؛ basefont ؛" & _
"bgSound ؛ big ؛ blockquote ؛ body ؛ br ؛ button ؛ caption ؛ center ؛ cite ؛ code ؛" & _
"col ؛ colgroup ؛ تعليق ؛ dd ؛ del ؛ dfn ؛ dir ؛ div ؛ dl ؛ dt ؛ em ؛ embed ؛ fieldet ؛" & _
"font ؛ form ؛ framest ؛ head ؛ h1 ؛ h2 ؛ h3 ؛ h4 ؛ h5 ؛ h6 ؛ hr ؛ html ؛ i ؛ iframe ؛ img ؛" & _ _
"المدخلات ؛ ins ؛ isIndex ؛ kbd ؛ label ؛ layer ؛ lagend ؛ li ؛ link ؛ list ؛ map ؛ marquee ؛" & _
"قائمة ؛ meta ؛ nobr ؛ noframes ؛ noscript ؛ كائن ؛ ol ؛ خيار ؛ p ؛ param ؛ plaintext ؛" & _