Example
Private Class somecharacter
Public code, name, level, strength, dexterity, vitality, energy As String
Public items As New ArrayList
End Class
Dim character As somecharacter
Dim characters As New ArrayList
Private Function CharactersLoaded() As Boolean
Dim xmlfilename As String = "characters.xml"
Dim xdoc As New XmlDocument
xdoc.Load(xmlfilename)
Dim cs As XmlNodeList = xdoc.SelectNodes("Characters/Character")
For Each node As XmlNode In cs
character = New somecharacter
character.code = node.Attributes("Code").InnerText
character.name = node("Name").InnerText
character.level = node.SelectSingleNode("Level").InnerText
character.strength = node.SelectSingleNode("Strength").InnerText
character.dexterity = node.SelectSingleNode("Dexterity").InnerText
character.vitality = node.SelectSingleNode("Vitality").InnerText
character.energy = node.SelectSingleNode("Energy").InnerText
For Each item As XmlNode In node.SelectNodes("Items/Item")
character.items.Add(item.InnerText)
Next
characters.Add(character)
Next
Return True
End Function