XML/Output: Difference between revisions
PascalABC.NET
m (→{{header|Wren}}: Changed to Wren S/H) |
(PascalABC.NET) |
||
Line 2,454:
<Character name="Emily">Short & shrift</Character>
</CharacterRemarks></syntaxhighlight>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
{$reference System.Xml.Linq.dll}
{$reference System.Xml.XDocument.dll}
uses System.Xml.Linq;
function CreateXML(characterRemarks: Dictionary<string, string> ): string;
begin
var remarks := characterRemarks.Select(r -> new XElement('Character', r.Value, new XAttribute('Name', r.Key)));
var xml := new XElement('CharacterRemarks', remarks);
Result := xml.ToString;
end;
begin
var characterRemarks := Dict(
('April', 'Bubbly: I''m > Tam and <= Emily' ),
( 'Tam O''Shanter', 'Burns: "When chapman billies leave the street ..."' ),
( 'Emily', 'Short & shrift' )
);
var xml := CreateXML(characterRemarks);
Writeln(xml);
end.
</syntaxhighlight>
{{out}}
<pre>
<CharacterRemarks>
<Character Name="April">Bubbly: I'm > Tam and <= Emily</Character>
<Character Name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
<Character Name="Emily">Short & shrift</Character>
</CharacterRemarks>
</pre>
=={{header|Perl}}==
| |||