قم بإزالة جميع العلامات في رمز HTML
نسخة الكود كما يلي:
<٪
'*********************************
'الدالة: removeHTML_A (strtext)
'الوسائط: strtext ، سلسلة ستتم معالجتها
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: قم بإزالة جميع العلامات في رمز HTML
"مثال: <٪ = removeHtml_a (" <b> مرحبًا بك في alixixi </b> ") ٪>
'*********************************
functionRemoveHtml_a (strtext)
DIMNPOS1
dimnpos2
NPOS1 = instr (strtext ، "<")
dowhilenpos1> 0
NPOS2 = Instr (NPOS1+1 ، Strtext ، ">")
IFNPOS2> 0then
strtext = يسار (strtext ، npos1-1) و mid (strtext ، npos2+1)
آخر
exitdo
Endif
NPOS1 = instr (strtext ، "<")
حلقة
removeHtml_a = strtext
الوظيفية
٪>
قم بإزالة جميع العلامات في رمز HTML
نسخة الكود كما يلي:
<٪
'*********************************
الدالة: removeHTML_B (strtext)
'الوسائط: strtext ، سلسلة ستتم معالجتها
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: قم بإزالة جميع العلامات في رمز HTML
"مثال: <٪ = removeHtml_b (" <b> مرحبًا بك في alixixi </b> ") ٪>
'*********************************
functionRemoveHtml_b (strtext)
Dimregex
setRegex = NewRegexp
regex.pattern = "<[^>]*>"
regex.global = صحيح
removeHtml_b = regex.replace (strtext ، "")
الوظيفية
٪>
قم بإزالة جميع العلامات في رمز HTML
نسخة الكود كما يلي:
<٪
'*********************************
'الدالة: removeHTML_C (strtext)
'الوسائط: strtext ، سلسلة ستتم معالجتها
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: قم بإزالة جميع العلامات في رمز HTML
"مثال: <٪ = removeHtml_c (" <b> مرحبًا بك في alixixi </b> ") ٪>
'*********************************
functionRemoveHtml_C (strtext)
dimtaglist
taglist = "؛!-؛! doctype ؛ a ؛ اختصار ؛ العنوان ؛ applet ؛ area ؛ b ؛ base ؛ basefont ؛" & _
"bgSound ؛ big ؛ blockquote ؛ body ؛ br ؛ button ؛ caption ؛ center ؛ cite ؛ code ؛" & _