ตัวเลือกอย่างชัดเจน
ฟังก์ชั่น striphtml (strtext)
Dim arysplit, i, j, stroutput
arysplit = split (strtext, "
ถ้า len (arysplit (0))> 0 แล้ว j = 1 else j = 0
สำหรับ i = j ถึง ubund (arysplit)
ถ้า instr (arysplit (i), ">") แล้ว
arysplit (i) = mid (arysplit (i), instr (arysplit (i), ">")+1)
อื่น
arysplit (i) = "สิ้นสุดถ้า
ต่อไป
stroutput = เข้าร่วม (arysplit, "")
stroutput = mid (stroutput, 2-J)
stroutput = แทนที่ (Stroutput, ">", ">")
stroutput = แทนที่ (stroutput, "
striphtml = stroutput
ฟังก์ชันสิ้นสุด
-
0 แล้ว %>
มุมมองของสตริง ที่ไม่มี HTML Striping:
มุมมองของสตริง ด้วย HTML Striping:
ข้างต้นเป็นเรื่องเกี่ยวกับวิธีการล้างแท็ก HTML ในเนื้อหา ขอบคุณสำหรับการอ่าน สำหรับเนื้อหาเพิ่มเติมโปรดให้ความสนใจกับเว็บไซต์ของช่องเทคโนโลยี Wuxin