XML/Output: Difference between revisions
no edit summary
No edit summary |
|||
Line 2,514:
</CharacterRemarks>
</pre>
=={{header|Yabasic}}==
<lang Yabasic>sign$ = "<,<,>,>,&,&"
dim sign$(1)
long = token(sign$, sign$(), ",")
sub substitute_all$(s$)
local i
for i = 1 to long step 2
if s$ = sign$(i) return sign$(i + 1)
next i
return s$
end sub
sub xmlquote_all$(s$)
local i, res$
for i = 1 to len(s$)
res$ = res$ + substitute_all$(mid$(s$, i, 1))
next i
return res$
end sub
sub xml_CharacterRemarks$(datos$())
local res$, i, long
long = arraysize(datos$(), 1)
res$ = "<CharacterRemarks>\n"
for i = 1 to long
res$ = res$ + " <CharacterName=\"" + xmlquote_all$(datos$(i, 1)) + "\">" + xmlquote_all$(datos$(i, 2)) + "</Character>\n"
next i
return res$ + "</CharacterRemarks>\n"
end sub
data "April", "Bubbly: I'm > Tam and <= Emily"
data "Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\""
data "Emily", "Short & shrift"
dim testset$(3, 2)
for i = 1 to 3
read testset$(i, 1), testset$(i, 2)
next i
print xml_CharacterRemarks$(testset$())</lang>
=={{header|zkl}}==
|