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).JudgeFirstN ame
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.EventArg s) Handles btnImport.Click
ReadJudgesTable ("c:\2005 WGI\WGI Tabulation Program\Data
Files\data\Judg esTable.xml")
End Sub
Protected Sub ReadJudgesTable (ByVal filename As String)
Dim ser As New XmlSerializer(G etType(ArrayOfJ udgeTableEntity ))
' Read In the Judges table
Dim fs2 As New FileStream(file name, FileMode.Open)
' Deserialize into another instance of ArrayOfJudgeTab leEntity
Dim judges2 As ArrayOfJudgeTab leEntity = CType(ser.Deser ialize(fs2),
ArrayOfJudgeTab leEntity)
fs2.Close()
MsgBox("JudgesT able has been deserialized - I hope",
MsgBoxStyle.Exc lamation, "Got Judges")
End Sub
=============== =============== =============== =======
=============== === Class Definition =============== ===
Imports System.Xml
Imports System.Xml.Seri alization
Imports System.Collecti ons
Public Class ArrayOfJudgeTab leEntity
<XmlArray("Judg eTableEntity"), XmlArrayItem("J udge", IsNullable:=Tru e)> _
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 'ArrayOfJudgeTa bleEntity
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"?>
<ArrayOfJudgeTa bleEntity xmlns:xsd="http ://www.w3.org/2001/XMLSchema"
xmlns:xsi="http ://www.w3.org/2001/XMLSchema-instance">
<JudgeTableEnti ty>
<JudgeId>633719 91-cdf9-4cc5-99c1-a42c599498f8</JudgeId>
<JudgeFirstName >Kristen</JudgeFirstName>
<JudgeLastName> O'Melia</JudgeLastName>
<JudgeType>Equi pment</JudgeType>
</JudgeTableEntit y>
<JudgeTableEnti ty>
<JudgeId>ce2c0c 6e-4094-43da-9d8c-9726d81b017e</JudgeId>
<JudgeFirstName >Smith</JudgeFirstName>
<JudgeLastName> Dan</JudgeLastName>
<JudgeType>Move ment</JudgeType>
</JudgeTableEntit y>
<JudgeTableEnti ty>
<JudgeId>efe977 f6-04ec-4a65-ae46-34b0f75de87f</JudgeId>
<JudgeFirstName >Kathy</JudgeFirstName>
<JudgeLastName> Whitcomb</JudgeLastName>
<JudgeType>Ense mble Color Guard</JudgeType>
</JudgeTableEntit y>
<JudgeTableEnti ty>
<JudgeId>99d92f 77-39e1-46b8-b9e2-446b8cea1b0c</JudgeId>
<JudgeFirstName >Shirlee</JudgeFirstName>
<JudgeLastName> Whitcomb</JudgeLastName>
<JudgeType>Gene ral Effect Color Guard</JudgeType>
</JudgeTableEntit y>
<JudgeTableEnti ty>
<JudgeId>f7ae92 ef-9bb2-48fe-bbe8-3c566b924d0f</JudgeId>
<JudgeFirstName >George</JudgeFirstName>
<JudgeLastName> Oliviero</JudgeLastName>
<JudgeType>Gene ral Effect Color Guard</JudgeType>
</JudgeTableEntit y>
<JudgeTableEnti ty>
<JudgeId>5e1cad 18-4ef9-4625-99c2-ee12c2b05cda</JudgeId>
<JudgeFirstName >Lee</JudgeFirstName>
<JudgeLastName> Carpenter</JudgeLastName>
<JudgeType>Pena lty</JudgeType>
</JudgeTableEntit y>
</ArrayOfJudgeTab leEntity>
=============== =============== ============
