Parsing in Json not in XML . VB.Net

Question

At the moment I am using VB.Net. I build my string, post it out and then parse the results.

Parsing Example for XML

Dim xml As New MWXMLDocument()
            Dim sReason As String = "Unknown"

            Try
                xml.LoadXml(sresult)
                If xml.SelectSimpleNode("AcceptedLead").InnerText = "true" Then
                    app.Outcome.RedirectURL = xml.SelectSimpleNode("result/redirecturl").InnerText

                    AcceptLead()
                    Return True
                End If

                sReason = xml.SelectSimpleNode("Reason").InnerText
            Catch ex As Exception
                sReason = "Error: " & ex.Message
            End Try
            DeclineLead(sReason)
            Return False
        End Function

How would I parse a result sent back in JSON, here is an example of the result I want to parse in using VB : Can i not just get the data from the string and parse as normal XML.

{"RedirectUrl":"www.test.com","Commission":5.0000,"Status":"accepted"}

possible duplicate of How to parse json in C#?

Victor Zakharov
– Victor Zakharov

2014-09-12 12:49:12 +00:00
Commented Sep 12, 2014 at 12:49 — Victor Zakharov
– Victor Zakharov, Commented Sep 12, 2014 at 12:49
Also look into System.Runtime.Serialization.Json.

Victor Zakharov
– Victor Zakharov

2014-09-12 12:49:49 +00:00
Commented Sep 12, 2014 at 12:49 — Victor Zakharov
– Victor Zakharov, Commented Sep 12, 2014 at 12:49

L01NL · Accepted Answer · 2014-09-12 12:29:48Z

2

You can use the JSON.NET Library

Example in C#:

var result = JsonConvert.DeserializeObject<RootObject>(string json);

The RootObject should be your own class.

answered Sep 12, 2014 at 12:29

L01NL

1,8331 gold badge14 silver badges17 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Ciarán · Accepted Answer · 2014-09-12 12:48:31Z

1

You could use the .Net built in JavaScriptSerialiser

First add a reference to System.Web.Extensions and then

Imports System.Web.Script.Serialization

Followed by...

Dim sExampleJSON As String = "{""RedirectUrl"":""www.test.com"",""Commission"":5.0000,""Status"":""accepted""}"

Dim MySerializer As JavaScriptSerializer = New JavaScriptSerializer()
Dim MyDictionary As Dictionary(Of String, Object) = MySerializer.Deserialize(Of Dictionary(Of String, Object))(sExampleJSON)

If MyDictionary.ContainsKey("RedirectUrl") Then
  Console.WriteLine(MyDictionary("RedirectUrl"))
End If

answered Sep 12, 2014 at 12:48

Ciarán

3,0571 gold badge18 silver badges21 bronze badges

6 Comments

Trifactor Over a year ago

What if the sExampleJSON string value changes, i just added that as an example.

Ciarán Over a year ago

Well then you just deserialise it again. The MyDictionary will then contain the new deserialised JSON results.

Trifactor Over a year ago

could you provide an example please

Ciarán Over a year ago

I don't understand what you mean, an example of what exactly?

Trifactor Over a year ago

I understand all of your example, but i dont understand Dim **** sExampleJSON As String = "{""RedirectUrl"":""www.test.com"",""Commission"":5.0000,""Status"":""accepted""}" ***** , those value's you filled in , how do i collect those value's after the result has been sent back to me

|

user4796202 · Accepted Answer · 2015-05-27 10:15:02Z

1

in global.asax.cs

using System.Data.Entity;

   namespace RpManticSolAPI
  {
  public class WebApiApplication : System.Web.HttpApplication
  {
    protected void Application_Start()
    {
          GlobalConfiguration.Configure(WebApiConfig.Register);
          GlobalConfiguration.Configuration.Formatters.JsonFormatter.SerializerSettings.ReferenceLoopHandling = Newtonsoft.Json.ReferenceLoopHandling.Ignore;
          GlobalConfiguration.Configuration.Formatters.Remove(GlobalConfiguration.Configuration.Formatters.XmlFormatter);          
      }
  }
  }

answered May 27, 2015 at 10:15

user4796202

Comments

Trifactor · Accepted Answer · 2014-10-02 12:01:14Z

The complete Answer

sResult = sResult.Replace("""", String.Empty)
            If sResult.Contains("Status:accepted") Then
                Dim parts = sResult.Replace("{", String.Empty).Replace("}", String.Empty).Split(",")
                For i As Int16 = 0 To parts.Length - 1
                    If parts(i).StartsWith("RedirectUrl") Then
                        app.Outcome.RedirectURL = parts(i).Substring(12)
                    End If
                    If parts(i).StartsWith("Commission") Then
                        lendertier.LenderComm = CDec(parts(i).Substring(11))
                    End If
                    If parts(i).StartsWith("ApplicationRef") Then
                        app.Outcome.LenderReference = parts(i).Substring(15)
                    End If
                Next
                AcceptLead()
                Return True
            End If
            If sResult.Contains("Reason:Duplicate") Then
                sReason = "Duplicate"
            ElseIf sResult.Contains("{Error:invalid credentials") Then
                sReason = "Error: Invalid credentials"
            ElseIf sResult.Contains("ValidationErrors:") Then
                sReason = "Invalid call:" + sResult.Replace("ValidationErrors:", String.Empty).Replace(",Status:rejected", String.Empty)
            Else
                sReason = "Rejected"
            End If
            DeclineLead(sReason)
            Return False

Collectives™ on Stack Overflow

Parsing in Json not in XML . VB.Net

4 Answers 4

Comments

6 Comments

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

Comments

6 Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related