Imports System

Imports System.Collections.Generic

Imports System.Collections

Imports System.IO

Imports System.Text

Imports System.Collections.ObjectModel

Imports System.Linq

Imports System.Reflection

​

Imports System.Xml.Serialization

Imports System.Xml

Imports System.Xml.Linq

Imports System.Xml.XPath

Imports System.Xml.Schema

​

' https://stackoverflow.com/questions/47905992/reading-child-nodes-with-multiple-namespaces

​

Public Module Module1

    Public Sub Main()

        Dim strXML as String = GetXml()

        ' Console.WriteLine(strXML)

​

        Dim XMLdoc As XmlDocument = New XmlDocument()

        XMLdoc.LoadXml(strXML)

​

        Dim XMLContent As XmlNodeList

​

        Dim nsMgr As New XmlNamespaceManager(XMLdoc.NameTable())

        nsMgr.AddNamespace("dflt", XMLdoc.DocumentElement.NamespaceURI)

        nsMgr.AddNamespace("ns1", XMLdoc.DocumentElement.GetNamespaceOfPrefix("soap"))

        nsMgr.AddNamespace("ns2", "http://namespacetwo")

        nsMgr.AddNamespace("ns3", "http://namespacethree")

        nsMgr.AddNamespace("ns4", "http://namespacefour")

        nsMgr.AddNamespace("ns5", "http://namespacefive")

        nsMgr.AddNamespace("ns6", "http://namespacesix")

​

        'This returns content but not at the level I want

        XMLContent = XMLdoc.SelectNodes("/ns1:Envelope/ns1:Body/ns4:Response/ns4:Result", nsMgr)

​

        'This does not return anything

        XMLContent = XMLdoc.SelectNodes("/ns1:Envelope/ns1:Body/ns4:Response/ns4:Result/ns5:Data", nsMgr)

​

        If Not XMLContent Is Nothing Then

            For Each node As XmlNode In XMLContent

            Console.WriteLine(Environment.Newline + "Selected Node: ")

                Console.WriteLine(node.GetOuterXml())

            Next node

        End If

    End Sub

​

    Function GetXml() As String

        Dim xml as String = <?xml version="1.0" encoding="utf-8"?>

<soap:Envelope xmlns:soap="namespaceone" xmlns:xsi="namespacetwo" xmlns:xsd="namespacethree">

    <soap:Body>

        <Response xmlns="http://namespacefour">

            <Result>

                <Data xmlns="http://namespacefive" xmlns:t="http://namespacesix">

                    <Container>

                        <Properties>

                            <Property1>a</Property1>

                            <Property2>b</Property2>

                        </Properties>

                    </Container>

                    <Container>

                        <Properties>

                            <Property1>c</Property1>

                            <Property2>d</Property2>

                        </Properties>

                    </Container>

                </Data>

            </Result>

        </Response>

    </soap:Body>

</soap:Envelope>.ToString()

        Return xml

    End Function

​

End Module

​

Public Module XmlSerializationHelper

    <System.Runtime.CompilerServices.Extension> _

    Public Function GetOuterXml(node as XmlNode, Optional indent as Boolean = true) as String

        Using textWriter = New StringWriter()

            ' For cosmetic purposes.

            Dim settings = New XmlWriterSettings() With { _

                .Indent = indent, _

                .OmitXmlDeclaration = true _

            }

            Using xmlWriter = System.Xml.XmlWriter.Create(textWriter, settings)

                node.WriteTo(xmlWriter)

            End Using

            Return textWriter.ToString()

        End Using       

    End Function

End Module

​