Imports System
Imports System.Reflection
Imports System.Xml
Module Module1
Sub Main()
Dim xdoc As XDocument = XDocument.Load("C:\hamlet.xml")
Dim xe As XElement = New XElement("PERSONA","new value")
xdoc.Element("PLAY").Element("PERSONAE").Add(xe)
Dim query = From people In xdoc.Descendants("PERSONA") Select people.Value
Console.WriteLine("{0} Players Found", query.Count())
For Each item In query
Console.WriteLine(item)
Next
End Sub
End Module
|