How do I return all elements from a xml doc?

Question

I have a xml document which in my VB code I am saving the elements(ns1:Statute) in a variable
objXmlStatuteNode  then adding that variable in to an object
objXmlStatutesDoc.
My code is working but only displaying one element (<ns1:Statute>) even though I have 3 <ns1:Statute>. How do I display all 3 <ns1:Statute>?
Here is my xml document modified version to make it short.
<ns1:Statutes xmlns:ns1="http://crimnet.state.mn.us/mnjustice/statute/messages/4.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<ns1:Statutes xmlns:ns1="http://crimnet.state.mn.us/mnjustice/statute/messages/4.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<ns1:Statute>
<StatuteId xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">12875</StatuteId>
<Chapter xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">171</Chapter>
<Section xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">22</Section>
<Subdivision xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1(7)</Subdivision>
<Year xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1994</Year>
</ns1:Statute>
<ns1:Statute>
<StatuteId xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">12875</StatuteId>
<Chapter xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">171</Chapter>
<Section xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">22</Section>
<Subdivision xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1(7)</Subdivision>
<Year xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1994</Year>
</ns1:Statute>
<ns1:Statute>
<StatuteId xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">12875</StatuteId>
<Chapter xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">171</Chapter>
<Section xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">22</Section>
<Subdivision xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1(7)</Subdivision>
<Year xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1994</Year>
</ns1:Statute>
</ns1:Statutes>
Here is my vb code
Public Class GetStatutes
Shared Sub main()
Dim objMessageProcessor As New MessageProcessor
Dim objSchemasCollection As New Msc.Integration.MessageBroker.Library.v4.SchemasCollection
Dim objTransformsCollection As New Msc.Integration.MessageBroker.Library.v4.TransformsCollection
objMessageProcessor.ProcessInputQueue(False, False, objSchemasCollection, objTransformsCollection)
End Sub
'Child class MessageProcessor which inherits from main class GetStatutes
Private Class MessageProcessor
Inherits Msc.Integration.ServiceCatalog.Library.v4.SoapMessageProcessor
Protected Overrides Sub ProcessMessage(ByRef aobjBroker As ServiceCatalog.Library.v4.Broker, ByRef aobjXMLInputSoapEnvelopeDoc As System.Xml.XmlDocument, ByRef aobjInstantiatedObjectsCollection As Microsoft.VisualBasic.Collection, ByRef aobjConsumer As ServiceCatalog.Library.v4.Consumer)
MyBase.ProcessMessage(aobjBroker, aobjXMLInputSoapEnvelopeDoc, aobjInstantiatedObjectsCollection, aobjConsumer)
Dim objXmlStatutesDoc As XmlDocument
Dim objXmlStatuteNode As XmlNode
Dim objNameTable As Xml.NameTable
Dim objXMLNameSpaceManager As XmlNamespaceManager
Dim objXmlBcaResponseDoc As XmlDocument
Dim objXMLOutputSoapEnvelopeDoc As XmlDocument
'set up the namespace manager
objNameTable = New Xml.NameTable
objXMLNameSpaceManager = New Xml.XmlNamespaceManager(objNameTable)
objXMLNameSpaceManager.AddNamespace("soap", Msc.Integration.Utility.Library.v4.Soap.NamespaceUri(aobjBroker.SoapMessageVersion))
objXMLNameSpaceManager.AddNamespace("wsa", Msc.Integration.Utility.Library.v4.Soap.WsaNamespaceUri(aobjBroker.SoapMessageVersion))
objXMLNameSpaceManager.AddNamespace("ns1", "http://crimnet.state.mn.us/mnjustice/statute/messages/4.0")
objXMLNameSpaceManager.AddNamespace("st", "http://crimnet.state.mn.us/mnjustice/statute/4.0")
objXmlStatuteNode = aobjXMLInputSoapEnvelopeDoc.DocumentElement.SelectSingleNode("soap:Body/GetBCAStatuteRequest", objXMLNameSpaceManager)
objXmlStatutesDoc = New XmlDocument
'Get the statutes
objXmlBcaResponseDoc = New XmlDocument
objXmlBcaResponseDoc.Load("\\j00000swebint\mscapps\deve\appfiles\temp\BcaStatutes.xml")
objXmlStatutesDoc = New XmlDocument
objXmlStatutesDoc.AppendChild(objXmlStatutesDoc.CreateElement("Statutes"))
objXmlStatutesDoc.DocumentElement.SetAttribute("runType", "Request")
objXmlStatutesDoc.DocumentElement.SetAttribute("runDateTime", Format(Now, "yyyy-MM-ddTHH:mm:ss"))
'Create a variable to store the statute element information ns1:Statute name space
objXmlStatuteNode = objXmlBcaResponseDoc.DocumentElement.SelectSingleNode("ns1:Statute", objXMLNameSpaceManager)
'Add the variable objXmlStatudeNode to the object objXmlStatuteDoc
objXmlStatutesDoc.DocumentElement.AppendChild(objXmlStatutesDoc.ImportNode(objXmlStatuteNode, True))
'Create the SOAP envelope to return the reply to the submitter
objXMLOutputSoapEnvelopeDoc = aobjBroker.CreateSoapEnvelope("http://www.courts.state.mn.us/StatuteService/1.0/GetStatutesResponse", _
Msc.Integration.Utility.Library.v4.Soap.GetReplyEndpointReference(aobjXMLInputSoapEnvelopeDoc), _
objXmlStatutesDoc.DocumentElement, , aobjConsumer, _
aobjXMLInputSoapEnvelopeDoc.DocumentElement.SelectSingleNode("soap:Header/wsa:MessageID", objXMLNameSpaceManager).InnerText)
'Return the response to the requester
aobjBroker.Reply(objXMLOutputSoapEnvelopeDoc)
End Sub
End Class
End Class

Answer 1

winkimjr2,
Are you aware that there's a duplicate line in the XML? It won't work with that in there so I've modified it as shown here:
<ns1:Statutes xmlns:ns1="http://crimnet.state.mn.us/mnjustice/statute/messages/4.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<ns1:Statute>
<StatuteId xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">12875</StatuteId>
<Chapter xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">171</Chapter>
<Section xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">22</Section>
<Subdivision xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1(7)</Subdivision>
<Year xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1994</Year>
</ns1:Statute>
<ns1:Statute>
<StatuteId xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">12875</StatuteId>
<Chapter xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">171</Chapter>
<Section xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">22</Section>
<Subdivision xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1(7)</Subdivision>
<Year xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1994</Year>
</ns1:Statute>
<ns1:Statute>
<StatuteId xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">12875</StatuteId>
<Chapter xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">171</Chapter>
<Section xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">22</Section>
<Subdivision xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1(7)</Subdivision>
<Year xmlns="http://crimnet.state.mn.us/mnjustice/statute/4.0">1994</Year>
</ns1:Statute>
</ns1:Statutes>
The following isn't a way that I'm proud to do but I couldn't manage to work out LINQ-To-XML all the way through it. Nevertheless, this will work:
Option Strict On
Option Explicit On
Option Infer Off
Imports System.IO.Path
Imports <xmlns:NS1="http://crimnet.state.mn.us/mnjustice/statute/messages/4.0">
Public Class Form1
Private Class NS1
Private _statuteID As Integer
Private _chapter As Integer
Private _section As Integer
Private _subdivision As String
Private _year As Integer
Public Sub New(ByVal id As Integer, _
ByVal chapter As Integer, _
ByVal section As Integer, _
ByVal subdivision As String, _
ByVal year As Integer)
_statuteID = id
_chapter = chapter
_section = section
_subdivision = subdivision.Trim
_year = year
End Sub
Public ReadOnly Property Chapter() As Integer
Get
Return _chapter
End Get
End Property
Public ReadOnly Property Section() As Integer
Get
Return _section
End Get
End Property
Public ReadOnly Property StatuteID() As Integer
Get
Return _statuteID
End Get
End Property
Public ReadOnly Property Subdivision() As String
Get
Return _subdivision
End Get
End Property
Public ReadOnly Property Year() As Integer
Get
Return _year
End Get
End Property
End Class
Private ns1List As New List(Of NS1)
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
Dim desktop As String = _
My.Computer.FileSystem.SpecialDirectories.Desktop
Dim xmlPath As String = _
Combine(desktop, "Example.xml")
GetNS1Data(xmlPath)
Stop
' Now hover your mouse over "ns1List" above
' and expand it. You'll see your data.
End Sub
Private Sub GetNS1Data(ByVal filePath As String)
If My.Computer.FileSystem.FileExists(filePath) Then
Try
Dim xDoc As XElement = XElement.Load(filePath)
For Each sData As XElement In xDoc...<NS1:Statute>
Dim id As Integer
Dim chapter As Integer
Dim section As Integer
Dim subdivision As String = Nothing
Dim year As Integer
For Each element As XElement In sData.Elements
Select Case element.Name.LocalName
Case "StatuteId"
If Not Integer.TryParse(element.Value, id) Then
Throw New ArgumentException("The StatuteID could not be parsed.")
End If
Case "Chapter"
If Not Integer.TryParse(element.Value, chapter) Then
Throw New ArgumentException("The Chapter could not be parsed.")
End If
Case "Section"
If Not Integer.TryParse(element.Value, section) Then
Throw New ArgumentException("The Section could not be parsed.")
End If
Case "Subdivision"
If String.IsNullOrEmpty(element.Value) OrElse element.Value.Trim = "" Then
Throw New ArgumentException("The Subdivision could not be parsed.")
Else
subdivision = element.Value
End If
Case "Year"
If Not Integer.TryParse(element.Value, year) Then
Throw New ArgumentException("The Year could not be parsed.")
End If
End Select
Next
Dim instance As New NS1(id, chapter, section, subdivision, year)
ns1List.Add(instance)
Next
Catch ex As Exception
Throw
End Try
End If
End Sub
End Class
I hope that helps. :)
Still lost in code, just at a little higher level.