RosettaCodeData/Task/XML-Input/Visual-Basic-.NET/xml-input.visual

14 lines
358 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
Dim xml = <Students>
<Student Name="April"/>
<Student Name="Bob"/>
<Student Name="Chad"/>
<Student Name="Dave"/>
<Student Name="Emily"/>
</Students>
Dim names = (From node In xml...<Student> Select node.@Name).ToArray
For Each name In names
Console.WriteLine(name)
Next