قم بإزالة جميع العلامات في رمز HTML

عندما نكتب رمز HTML ، نحتاج أحيانًا إلى إزالة جميع العلامات. من المزعج حذف العلامات واحدة تلو الأخرى. فهل هناك أي طريقة سريعة ومريحة؟ دعنا نلقي نظرة على كيفية إزالة جميع العلامات في كود HTML.

قم بإزالة جميع العلامات في رمز HTML

<٪

'*********************************

'الدالة: removeHTML_A (strtext)

'الوسائط: strtext ، سلسلة ستتم معالجتها

المؤلف: Alixi

"التاريخ: 2007/7/12

الوصف: قم بإزالة جميع العلامات في رمز HTML

"مثال: <٪ = removeHtml_a (" <b> مرحبًا بك في alixixi </b> ") ٪>

'*********************************

وظيفة removeHTML_A (strtext)

DIM NPOS1

Dim NPOS2

NPOS1 = instr (strtext ، "<")

تفعل بينما NPOS1> 0

NPOS2 = Instr (NPOS1+1 ، Strtext ، ">")

إذا NPOS2> 0 ثم

strtext = يسار (strtext ، npos1 - 1) و mid (strtext ، npos2 + 1)

آخر

الخروج تفعل

إنهاء إذا

NPOS1 = instr (strtext ، "<")

حلقة

removeHtml_a = strtext

وظيفة نهاية

٪>

قم بإزالة جميع العلامات في رمز HTML

<٪

'*********************************

الدالة: removeHTML_B (strtext)

'الوسائط: strtext ، سلسلة ستتم معالجتها

المؤلف: Alixi

"التاريخ: 2007/7/12

الوصف: قم بإزالة جميع العلامات في رمز HTML

"مثال: <٪ = removeHtml_b (" <b> مرحبًا بك في alixixi </b> ") ٪>

'*********************************

دالة removeHTML_B (strText)

قاتمة regex

تعيين regex = جديد regexp

regex.pattern = "<[^>]*>"

regex.global = صحيح

removeHtml_b = regex.replace (strtext ، "")

وظيفة نهاية

٪>

قم بإزالة جميع العلامات في رمز HTML

<٪

'*********************************

'الدالة: removeHTML_C (strtext)

'الوسائط: strtext ، سلسلة ستتم معالجتها

المؤلف: Alixi

"التاريخ: 2007/7/12

الوصف: قم بإزالة جميع العلامات في رمز HTML

"مثال: <٪ = removeHtml_c (" <b> مرحبًا بك في alixixi </b> ") ٪>

'*********************************

وظيفة removeHtml_C (strtext)

Dim Taglist

tagList = "؛!-؛! doctype ؛ a ؛ اختصار ؛ العنوان ؛ applet ؛ المنطقة ؛ b ؛ base ؛ basefont ؛" & _

"bgSound ؛ كبير ؛ blockquote ؛ الجسم ؛ br ؛ زر ؛ التسمية التوضيحية ؛ المركز ؛ استشهد ؛ رمز ؛" & _

"العقيد ؛ colgroup ؛ تعليق ؛ dd ؛ del ؛ dfn ؛ dir ؛ div ؛ dl ؛ dt ؛ em ؛ inmbed ؛ fieldet ؛" & _

"font ؛ form ؛ framestet ؛ head ؛ h1 ؛ h2 ؛ h3 ؛ h4 ؛ h5 ؛ h6 ؛ hr ؛ html ؛ i ؛ iframe ؛ img ؛" & _

"المدخلات ؛ ins ؛ isIndex ؛ kbd ؛ label ؛ طبقة ؛ lagend ؛ li ؛ الرابط ؛ القائمة ؛ الخريطة ؛ سرادق ؛" & _

"القائمة ؛ meta ؛ nobr ؛ noframes ؛ noscript ؛ كائن ؛ ol ؛ الخيار ؛ p ؛ param ؛ plaintext ؛" & _

"pre ؛ & _

"الجدول ؛ tbody ؛ td ؛ textarea ؛ tfoot ؛ th ؛ thead ؛ tut ؛ tr ؛ tt ؛ u ؛ ul ؛ var ؛ wbr ؛ xmp ؛"

const blocktaglist = "؛ applet ؛ inmbed ؛ frameet ؛ head ؛ noframes ؛ noscript ؛ object ؛ script ؛ style ؛"

DIM NPOS1

Dim NPOS2

DIM NPOS3

قاتمة ستريسولت

قاتمة strtagname

بافت بريمو

قاتمة BSearchForBlock

NPOS1 = instr (strtext ، "<")

افعل بينما NPOS1> 0

NPOS2 = Instr (NPOS1 + 1 ، Strtext ، ">")

إذا NPOS2> 0 ثم

strtagname = mid (strtext ، npos1 + 1 ، npos2 - npos1 - 1)

strtagname = استبدال (استبدال (strtagname ، vbcr ، "") ، vblf ، "")

NPOS3 = instr (strtagname ، "")

إذا NPOS3> 0 ثم

strtagname = اليسار (strtagname ، npos3 - 1)

إنهاء إذا

إذا تركت (strtagname ، 1) = "/" ثم

strtagname = mid (strtagname ، 2)

bsearchforblock = false

آخر

BSearchForBlock = صحيح

إنهاء إذا

if Instr (1 ، taglist ، "؛" & strtagname & "؛" ، vbtextCompare)> 0 ثم

Bremove = صحيح

إذا bsearchforblock ثم

if Instr (1 ، blocktaglist ، "؛" & strtagname & "؛" ، vbtextCompare)> 0 ثم

NPOS2 = len (strtext)

NPOS3 = Instr (NPOS1 + 1 ، StrText ، "</" & strtagname ، vbtextcompare)

إذا NPOS3> 0 ثم

NPOS3 = Instr (NPOS3 + 1 ، Strtext ، ">")

إنهاء إذا

إذا NPOS3> 0 ثم

NPOS2 = NPOS3

إنهاء إذا

إنهاء إذا

إنهاء إذا

آخر

Bremove = خطأ

إنهاء إذا

إذا بريمو ثم

strresult = strresult & Left (Strtext ، NPOS1 - 1)

strtext = mid (strtext ، npos2 + 1)

آخر

strresult = strresult & Left (Strtext ، NPOS1)

strtext = mid (strtext ، npos1 + 1)

إنهاء إذا

آخر

strresult = strresult & strtext

strtext = ""

إنهاء إذا

NPOS1 = instr (strtext ، "<")

حلقة

strresult = strresult & strtext

removeHTML_C = strresult

وظيفة نهاية

٪>

هذا كل شيء عن إزالة جميع العلامات في كود HTML. أعتقد أن كل شخص لديه فهم معين. إذا كنت ترغب في معرفة المزيد من المعلومات الفنية ، فيرجى الاستمرار في الانتباه إلى قناة التكنولوجيا الجديدة الخاطئة!