عندما نكتب رمز 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. أعتقد أن كل شخص لديه فهم معين. إذا كنت ترغب في معرفة المزيد من المعلومات الفنية ، فيرجى الاستمرار في الانتباه إلى قناة التكنولوجيا الجديدة الخاطئة!