XML/Output: Difference between revisions
Content deleted Content added
Added Algol 68 |
→{{header|PureBasic}}: Corrected code sample to use escaped characters |
||
Line 1,704:
=={{header|PureBasic}}==
<lang Purebasic>DataSection▼
dataItemCount:
▲<lang Purebasic>
Data.i 3
names:
Data.s "April", "Tam O'Shanter", "Emily"
remarks:
Data.s "Bubbly: I'm > Tam and <= Emily",
~"Burns: \"When chapman billies leave the street ...\"",
"Short & shrift"
EndDataSection
Structure characteristic
name.s
remark.s
EndStructure
NewList didel.characteristic()
Define item.s, numberOfItems, i
Restore dataItemCount
AddElement(didel())▼
Read.i numberOfItems
didel()\name = ReadString(0) ▼
;add names
Restore names
EndIf▼
For i = 1 To numberOfItems
Read.s item
;add remarks
ResetList(didel())
FirstElement(didel())
Restore remarks:
For i = 1 To numberOfItems
Read.s item
Next
Define xml, mainNode, itemNode
ResetList(didel())
FirstElement(didel())
ForEach didel()
▲ ForEach didel()
▲ item = CreateXMLNode(mainNode)
Next
▲ SetXMLAttribute(item, "name", didel()\name)
▲ SetXMLNodeText(item, didel()\remark)
▲ Next
▲ FormatXML(xml, #PB_XML_ReFormat | #PB_XML_WindowsNewline | #PB_XML_ReIndent)
If OpenConsole()
</lang>▼
PrintN(ComposeXML(xml, #PB_XML_NoDeclaration))
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
CloseConsole()
▲EndIf</lang>
Sample output:
<pre><CharacterRemarks>
<Character name="April">Bubbly: I'm > Tam and <= Emily</Character>
<Character name="Tam O'Shanter">Burns: "When chapman billies leave the st
reet ..."</Character>
<Character name="Emily">Short & shrift</Character>
</CharacterRemarks>
=={{header|Python}}==
|