ลบแท็กทั้งหมดในรหัส HTML
การคัดลอกรหัสมีดังนี้:
-
-
'ฟังก์ชั่น: removehtml_a (strtext)
'อาร์กิวเมนต์: strtext, สตริงที่จะประมวลผล
'ผู้แต่ง: Alixi
'วันที่: 2007/7/12
'คำอธิบาย: ลบแท็กทั้งหมดในรหัส HTML
'ตัวอย่าง: <%= removehtml_a ("<b> ยินดีต้อนรับสู่ Alixixi </b>")%>
-
functionRemovehtml_a (strtext)
dimnpos1
dimnpos2
npos1 = stress (strtext, "<")
dowhilenpos1> 0
npos2 = instr (npos1+1, strtext, ">")
ifnpos2> 0 แล้ว
strtext = ซ้าย (strext, npos1-1) & mid (strtext, npos2+1)
อื่น
ออกจาก
endif
npos1 = stress (strtext, "<")
วง
removehtml_a = strtext
endfunction
-
ลบแท็กทั้งหมดในรหัส 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 = true
removehtml_b = regex.replace (strtext, "")
endfunction
-
ลบแท็กทั้งหมดในรหัส HTML
การคัดลอกรหัสมีดังนี้:
-
-
'ฟังก์ชั่น: removehtml_c (strtext)
'อาร์กิวเมนต์: strtext, สตริงที่จะประมวลผล
'ผู้แต่ง: Alixi
'วันที่: 2007/7/12
'คำอธิบาย: ลบแท็กทั้งหมดในรหัส HTML
'ตัวอย่าง: <%= removehtml_c ("<b> ยินดีต้อนรับสู่ Alixixi </b>")%>
-
functionRemoveHtml_c (strtext)
Dimtaglist
tagList = ";!-;! doctype; a; ตัวย่อ; ที่อยู่;
"bgsound; big; blockquote; body; br; ปุ่ม; คำอธิบายภาพ; center; cite; code; code;" & _