XML/Input: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Minor tidy) |
(PascalABC.NET) |
||
Line 2,912: | Line 2,912: | ||
in |
in |
||
{ForAll StudentNames System.showInfo}</syntaxhighlight> |
{ForAll StudentNames System.showInfo}</syntaxhighlight> |
||
=={{header|PascalABC.NET}}== |
|||
<syntaxhighlight lang="delphi"> |
|||
{$reference System.Xml.Linq.dll} |
|||
{$reference System.Xml.XDocument.dll} |
|||
uses System.Xml.Linq; |
|||
begin |
|||
var XMLText := ''' |
|||
<Students> |
|||
<Student Name="April" Gender="F" DateOfBirth="1989-01-02" /> |
|||
<Student Name="Bob" Gender="M" DateOfBirth="1990-03-04" /> |
|||
<Student Name="Chad" Gender="M" DateOfBirth="1991-05-06" /> |
|||
<Student Name="Dave" Gender="M" DateOfBirth="1992-07-08"> |
|||
<Pet Type="dog" Name="Rover" /> |
|||
</Student> |
|||
<Student DateOfBirth="1993-09-10" Gender="F" Name="Émily" /> |
|||
</Students> |
|||
'''; |
|||
var xmlDoc := XDocument.Parse(XMLText); |
|||
var q := xmlDoc.Descendants('Student').Select(p -> p.Attribute('Name')); |
|||
q.PrintLines(item -> item.Value); |
|||
end. |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
April |
|||
Bob |
|||
Chad |
|||
Dave |
|||
Émily |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |