غالبًا ما يتم استخدامه عند إخراج RSS و XML ، وليس تمامًا مثل HTMLencode
مبدأ:
| شخصية | تحول إلى |
| " | |
| ' | ' |
| & & | & & |
| < | < |
| > | > |
شفرة
<٪
وظيفة Xmlencode (Byval Stext)
stext = استبدال (stext ، "&" ، "&")
stext = استبدال (stext ، "<" ، "<")
stext = استبدال (stext ، ">" ، ">")
Stext = استبدال (Stext ، "" "،" "")
stext = استبدال (stext ، "" "" ، "")
xmlencode = stext
وظيفة نهاية
٪>
واحد آخر:
<٪
الوظيفة العامة xmlencode (byval strtext كسلسلة) كسلسلة
arychars الخافتة () كمتغير
arychars = صفيف (38 ، 60 ، 62 ، 34 ، 61 ، 39)
قاتمة أنا عدد صحيح
لأني = 0 إلى ubound (arychars)
strtext = استبدال (strtext ، chr (arychars (i)) ، "&#" & arychars (i) & "؛")
التالي
xmlencode = strtext
وظيفة نهاية
٪>