มันมักจะใช้เมื่อเอาท์พุท RSS และ XML และไม่เหมือนกับ htmlencode
หลักการ:
| อักขระ | แปลงเป็น |
| - | |
| - | - |
| - | - |
| - | - |
| - | - |
รหัส
-
ฟังก์ชั่น xmlencode (byval stext)
stext = แทนที่ (stext, "&", "&")
stext = แทนที่ (stext, "<", "<")
stext = แทนที่ (stext, ">", ">")
stext = แทนที่ (stext, "'", "'")
stext = แทนที่ (stext, "" "," ")
xmlencode = stext
ฟังก์ชันสิ้นสุด
-
อีกอันหนึ่ง:
-
ฟังก์ชั่นสาธารณะ xmlencode (byval strtext เป็นสตริง) เป็นสตริง
Dim Arychars () เป็นตัวแปร
Arychars = Array (38, 60, 62, 34, 61, 39)
Dim I เป็นจำนวนเต็ม
สำหรับ i = 0 ถึง Ubound (Arychars)
stressTe = แทนที่ (strext, chr (arychars (i)), "&#" & arychars (i) & ";")
ต่อไป
xmlencode = strtext
ฟังก์ชันสิ้นสุด
-