ลบแท็กทั้งหมดในรหัส 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 = stress (strtext, "<")

ทำในขณะที่ npos1> 0

npos2 = instr (npos1+1, strtext, ">")

ถ้า npos2> 0 แล้ว

strtext = left (strtext, npos1 - 1) & mid (strtext, npos2 + 1)

อื่น

ออก

สิ้นสุดถ้า

npos1 = stress (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 = true

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; big; blockquote; body; br; ปุ่ม; คำอธิบายภาพ; center; cite; code; code;" -

"Col; colgroup; ความคิดเห็น; dd; del; dfn; dir; div; dl; dt; em; embed; fieldset;" -

"ฟอนต์; ฟอร์ม; เฟรม; เฟรมเซ็ต; หัว; h1; h2; h3; h4; h5; h6; hr; html; i; iframe; img;" -

"อินพุต; ins; isIndex; kbd; label; layer; lagend; li; link; รายการ; แผนที่; marquee;" -

"เมนู; meta; nobr; noframes; noscript; object; ol; ตัวเลือก; p; param; plaintext;" -

"pre; q; s; samp; script; select; small; spain; strike; strong; style; sub; sup;" -

"ตาราง; tbody; td; textarea; tfoot; th; thead; title; tr; tt; u; ul; var; wbr; xmp;"

const blocktaglist = "; แอปเพล็ต; ฝัง; frameset; head; noframes; noscript; object; script; style;"

Dim Npos1

Dim Npos2

Dim Npos3

สลัว

สลัว strtagname

หรี่

สลัว bsearchforblock

npos1 = stress (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 = true

สิ้นสุดถ้า

ถ้า instr (1, taglist, ";" & strtagname & ";", vbtextcompare)> 0 แล้ว

bremove = true

ถ้า bsearchforblock แล้ว

ถ้า instr (1, blocktaglist, ";" & strtagname & ";", vbtextcompare)> 0 จากนั้น

npos2 = len (strtext)

NPOS3 = Instr (NPOS1 + 1, StrExt, "</" & strTagname, VBTextCompare)

ถ้า npos3> 0 แล้ว

npos3 = instr (npos3 + 1, strtext, ">")

สิ้นสุดถ้า

ถ้า npos3> 0 แล้ว

NPOS2 = NPOS3

สิ้นสุดถ้า

สิ้นสุดถ้า

สิ้นสุดถ้า

อื่น

bremove = false

สิ้นสุดถ้า

ถ้า Bremove แล้ว

stresult = stresult & left (strtext, npos1 - 1)

strtext = mid (strtext, npos2 + 1)

อื่น

stresult = stresult & left (strtext, npos1)

strtext = mid (strtext, npos1 + 1)

สิ้นสุดถ้า

อื่น

stresult = stresult & strtext

strtext = ""

สิ้นสุดถ้า

npos1 = stress (strtext, "<")

วง

stresult = stresult & strtext

removehtml_c = strresult

ฟังก์ชันสิ้นสุด

-

ทั้งหมดนี้เกี่ยวกับการลบแท็กทั้งหมดในรหัส HTML ฉันเชื่อว่าทุกคนมีความเข้าใจที่แน่นอน หากคุณต้องการทราบข้อมูลทางเทคนิคเพิ่มเติมโปรดดำเนินการต่อเพื่อให้ความสนใจกับช่องทางเทคโนโลยีใหม่ที่ไม่ถูกต้อง!