Using VB.NET I want to read in an XML file that has an array of objects and
then step through the resulting array in code. I build a class to define the
structure and I am running code to read in the data but I can't figure out
where the data is in the resulting array. Most of the relevant code is
below. When I run the code to desrialize I get no errors but if I try to
look at some of the data via the command window I get errors such as this:
?judges2.Judges(0).JudgeFirstName
Index '0' for dimension '0' is out of range.
What am I missing here?
Wayne
================= Execution Code =======================
Private Sub btnImport_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnImport.Click
ReadJudgesTable("c:\2005 WGI\WGI Tabulation Program\Data
Files\data\JudgesTable.xml")
End Sub
Protected Sub ReadJudgesTable(ByVal filename As String)
Dim ser As New XmlSerializer(GetType(ArrayOfJudgeTableEntity))
' Read In the Judges table
Dim fs2 As New FileStream(filename, FileMode.Open)
' Deserialize into another instance of ArrayOfJudgeTableEntity
Dim judges2 As ArrayOfJudgeTableEntity = CType(ser.Deserialize(fs2),
ArrayOfJudgeTableEntity)
fs2.Close()
MsgBox("JudgesTable has been deserialized - I hope",
MsgBoxStyle.Exclamation, "Got Judges")
End Sub
================================================== ==
================== Class Definition ==================
Imports System.Xml
Imports System.Xml.Serialization
Imports System.Collections
Public Class ArrayOfJudgeTableEntity
<XmlArray("JudgeTableEntity"), XmlArrayItem("Judge", IsNullable:=True)> _
Public Judges() As Judge
Public Sub New()
End Sub 'New
'Public Sub New(ByVal id As String, ByVal fn As String, ByVal ln As String,
ByVal type As String)
' JudgeID = id
' JudgeFirstName = fn
' JudgeFirstName = ln
' JudgeType = type
'End Sub 'New
End Class 'ArrayOfJudgeTableEntity
Public Class Judge
Public JudgeID As String
Public JudgeFirstName As String
Public JudgeLastName As String
Public JudgeType As String
Public Sub New()
End Sub 'New
Public Sub New(ByVal id As String, ByVal fn As String, ByVal ln As String,
ByVal type As String)
JudgeID = id
JudgeType = type
JudgeFirstName = fn
JudgeLastName = ln
End Sub 'New
End Class 'Judge
====================================
=========== Sample XML Data ================
<?xml version="1.0" encoding="utf-8"?>
<ArrayOfJudgeTableEntity xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<JudgeTableEntity>
<JudgeId>63371991-cdf9-4cc5-99c1-a42c599498f8</JudgeId>
<JudgeFirstName>Kristen</JudgeFirstName>
<JudgeLastName>O'Melia</JudgeLastName>
<JudgeType>Equipment</JudgeType>
</JudgeTableEntity>
<JudgeTableEntity>
<JudgeId>ce2c0c6e-4094-43da-9d8c-9726d81b017e</JudgeId>
<JudgeFirstName>Smith</JudgeFirstName>
<JudgeLastName>Dan</JudgeLastName>
<JudgeType>Movement</JudgeType>
</JudgeTableEntity>
<JudgeTableEntity>
<JudgeId>efe977f6-04ec-4a65-ae46-34b0f75de87f</JudgeId>
<JudgeFirstName>Kathy</JudgeFirstName>
<JudgeLastName>Whitcomb</JudgeLastName>
<JudgeType>Ensemble Color Guard</JudgeType>
</JudgeTableEntity>
<JudgeTableEntity>
<JudgeId>99d92f77-39e1-46b8-b9e2-446b8cea1b0c</JudgeId>
<JudgeFirstName>Shirlee</JudgeFirstName>
<JudgeLastName>Whitcomb</JudgeLastName>
<JudgeType>General Effect Color Guard</JudgeType>
</JudgeTableEntity>
<JudgeTableEntity>
<JudgeId>f7ae92ef-9bb2-48fe-bbe8-3c566b924d0f</JudgeId>
<JudgeFirstName>George</JudgeFirstName>
<JudgeLastName>Oliviero</JudgeLastName>
<JudgeType>General Effect Color Guard</JudgeType>
</JudgeTableEntity>
<JudgeTableEntity>
<JudgeId>5e1cad18-4ef9-4625-99c2-ee12c2b05cda</JudgeId>
<JudgeFirstName>Lee</JudgeFirstName>
<JudgeLastName>Carpenter</JudgeLastName>
<JudgeType>Penalty</JudgeType>
</JudgeTableEntity>
</ArrayOfJudgeTableEntity>
==========================================
