Imports System

Imports System.Xml

Public Module Module1

    Public Sub Main()

        Dim doc As New XmlDocument()

        doc.Load("http://api.tradedoubler.com/1.0/products.xml?token=A87185243749DAC9685310F6FEEB7F9038DD7F88")

​

        Dim nsManager As New XmlNamespaceManager(doc.NameTable)

        nsManager.AddNamespace("ns1", "urn:com:tradedoubler:pf:model:xml:output")

        nsManager.AddNamespace("ns2", "urn:com:tradedoubler:pf:model:xml:common")

        Dim nodes As XmlNodeList = doc.SelectNodes("//ns1:products/ns1:product", nsManager)

​

        For Each node As XmlNode in nodes

            Console.WriteLine(node.Name)

'--- Uncomment this to Traverse

'           For i = 0 to node.ChildNodes.Count - 1

'               Console.WriteLine(" " + node.ChildNodes(i).Name)

'               For t = 0 to node.ChildNodes(i).ChildNodes.Count - 1

'                   For a = 0 to node.ChildNodes(i).ChildNodes(t).ChildNodes.Count - 1

'                       Console.WriteLine("   " + node.ChildNodes(i).ChildNodes(t).ChildNodes(a).Name + ", Count = " + node.ChildNodes(i).ChildNodes(t).ChildNodes(a).Value)        

'                   Next

'               Next

'           Next

            Console.WriteLine(" " + node.SelectSingleNode("ns2:name", nsManager).InnerText)

            Console.WriteLine(" " + node.SelectSingleNode("ns2:description", nsManager).InnerText)

            Console.WriteLine(" " + node.SelectSingleNode("ns2:productImage", nsManager).InnerText)

            ' Console.WriteLine(" " + node.SelectSingleNode("ns2:fields/ns2:field[@name='city']", nsManager).InnerText)

            ' Console.WriteLine(" " + node.SelectSingleNode("ns2:fields/ns2:field[@name='Country']", nsManager).InnerText)

            Console.WriteLine(" " + node.SelectSingleNode("ns1:offers/ns1:offer/ns1:priceHistory/ns2:price", nsManager).InnerText)

            Console.WriteLine(" " + node.SelectSingleNode("ns1:offers/ns1:offer/ns2:productUrl", nsManager).InnerText)

            Console.WriteLine(" " + node.SelectSingleNode("ns1:offers/ns1:offer/ns2:programName", nsManager).InnerText)

            Console.WriteLine(" " + node.SelectSingleNode("ns1:offers/ns1:offer/ns2:programLogo", nsManager).InnerText)

        Next

        doc.RemoveAll()

        Console.WriteLine("Hello World")

    End Sub

End Module

​

​