Imports System          

Imports System.Xml

Imports System.Xml.XPath

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        ' SOAP/XML

        Dim lsXMLSample As String = "<?xml version=""1.0"" encoding=""UTF-8""?><foo><AmountOutstanding>9432.00</AmountOutstanding></foo>"

        Dim loResponseXML As New XmlDocument()

        loResponseXML.LoadXml(lsXMLSample)

​

        Dim loDocumentRoot As XmlNode = loResponseXML.DocumentElement

        Dim loNavigator As XPathNavigator = loResponseXML.CreateNavigator()

        Dim loNamespaceManager As New XmlNamespaceManager(loNavigator.NameTable)

        Dim loColumnNode As XmlNode = Nothing

        Dim lsXMLValue As String = String.Empty

        loColumnNode = loResponseXML.DocumentElement.SelectSingleNode("/foo/AmountOutstanding", loNamespaceManager)

        If (loColumnNode IsNot Nothing) Then

            lsXMLValue = If(loColumnNode.NodeType = XmlNodeType.Element, loColumnNode.InnerText, loColumnNode.Value)

        End If

        Console.WriteLine("XML Value=" & lsXMLValue)

        ' REST/JSON

        Dim lsJSONSample As String = "{ ""AmountOutstanding"" : 363.0000 }"

        Dim loJObject As JObject = JObject.Parse(lsJSONSample)

        Dim lsJSONValue As String = String.Empty

        Dim loJValue As JValue = Nothing

​

        Dim loResponseNode As JToken = DirectCast(loJObject, JToken)

        loJValue = loResponseNode.SelectToken("AmountOutstanding")

        If (loJValue IsNot Nothing) Then

            lsJSONValue = loJValue.ToString()

            Console.WriteLine("JSON Value=" & lsJSONValue)

            ' Fix?

            Console.WriteLine("JValue is a " & loJValue.Value.GetType().Name)

            select case loJValue.Value.GetType().Name

                case "Double"

                    lsJSONValue = loJValue.ToString("0.00")

            end select

            Console.WriteLine("Revised JSON Value=" & lsJSONValue)

        End If

    End Sub

End Module