Parsing Json in vb.net mit newtonsot.json

Question

Ich habe die folgende Zeichenfolge json

{ 
    "extractorData" : { 
"url" : "http://absa.co.za/Absacoza/Indices/Absa-Exchange-Rates", 
"resourceId" : "4dd52d44301ebd50db87975bf5df9711", 
"data" : [ { 
    "group" : [ { 
    "absa" : [ { 
     "text" : "USD" 
    } ] 
    }, { 
    "absa" : [ { 
     "text" : "US Dollar" 
    } ] 
    }, { 
    "absa" : [ { 
     "text" : "*" 
    } ] 
    }, { 
    "absa" : [ { 
     "text" : "14.429" 
    } ], 
    "Buying" : [ { 
     "text" : "14.429" 
    } ] 
    }, { 
    "absa" : [ { 
     "text" : "14.409" 
    } ] 
    }, { 
    "absa" : [ { 
     "text" : "14.404" 
    } ] 
    }, { 
    "absa" : [ { 
     "text" : "14.8323" 
    } ], 
    "Selling" : [ { 
     "text" : "14.8323" 
    } ] 
    }, { 
    "absa" : [ { 
     "text" : "14.8373" 
    } ] 
    } ] 
} ] 
}, 
"pageData" : { 
"statusCode" : 200, 
"timestamp" : 1459675946038 
} 
} 

Ich habe auch die folgenden Klassen

Public Class Rootobject 
    Public Property extractorData As Extractordata 
    Public Property pageData As Pagedata 
End Class 

Public Class Extractordata 
    Public Property url As String 
    Public Property resourceId As String 
    Public Property data() As Datum 
End Class 

Public Class Datum 
    Public Property group() As Group 
End Class 

Public Class Group 
    Public Property absa() As Absa 
    Public Property Buying() As Buying 
    Public Property Selling() As Selling 
End Class 

Public Class Absa 
    Public Property text As String 
End Class 

Public Class Buying 
    Public Property text As String 
End Class 

Public Class Selling 
    Public Property text As String 
End Class 

Public Class Pagedata 
    Public Property statusCode As Integer 
    Public Property timestamp As Long 
End Class 

Wie kann ich die Werte für Kauf und Verkauf extrahieren mit newtonsoft.json? Ich habe in den letzten 4 Stunden nach Beispielen gesucht und versucht, und ich bin immer noch nicht näher an einer Antwort. Ich bin sehr neu in JSon

bitte helfen

Answer 1

Anscheinend Ihr Code nicht korrekt desertizare wegen der Art und Weise Sie Definieren Sie die Arrays. Putting es in Form von Public Property data As List(Of Datum) (und so weiter) anstelle von Public Property data() As Datum löst das Problem.

Der vollständige und getestete Code kann hier gefunden werden. Dies ist, wie Sie den json Text deserialisieren:

Sub Main() 

    Dim jsonAsText = File.ReadAllText("C:\Path\To\json.txt") 
    Dim deserializedRootObject = Newtonsoft.Json.JsonConvert.DeserializeObject(Of RootObject)(jsonAsText) 

End Sub 

Diese Deserialisierung verwendet RootObject und seine Unterobjekte, die hier gezeigt werden:

Public Class Absa 
    Public Property text As String 
End Class 

Public Class Buying 
    Public Property text As String 
End Class 

Public Class Selling 
    Public Property text As String 
End Class 

Public Class Group 
    Public Property absa As List(Of Absa) 
    Public Property Buying As List(Of Buying) 
    Public Property Selling As List(Of Selling) 
End Class 

Public Class Datum 
    Public Property group As List(Of Group) 
End Class 

Public Class ExtractorData 
    Public Property url As String 
    Public Property resourceId As String 
    Public Property data As List(Of Datum) 
End Class 

Public Class PageData 
    Public Property statusCode As Integer 
    Public Property timestamp As Long 
End Class 

Public Class RootObject 
    Public Property extractorData As ExtractorData 
    Public Property pageData As PageData 
End Class 

Answer 2

Sie können versuchen Beispiel aus newtonsoft.com

string json = @"{ 
    'Email': 'james@example.com', 
    'Active': true, 
    'CreatedDate': '2013-01-20T00:00:00Z', 
    'Roles': [ 
     'User', 
    'Admin' 
    ] 
    }"; 

    Account account = JsonConvert.DeserializeObject<Account>(json); 

    Console.WriteLine(account.Email); 

genommen Bellow

http://www.newtonsoft.com/json/help/html/deserializeobject.htm