Analyser imbriquée avec JSON json.net dans Visual Basic

J'ai imbriqué chaînes JSON que je voudrais analyser les valeurs appropriées comme ci-dessous. Comme je suis un apprentissage par la pratique, je suis un peu de mal, j'ai la première partie de travail à ce que je peux analyser unique de chaînes JSON, et le retour de la valeur à l'aide du code de l'exemple 1 ci-dessous, mais je suis coincé avec une chaîne JSON qui est problématique dans la mesure où elle est imbriquée, de sorte que la même approche ne fonctionnera pas

{
  "jsonrpc":"2.0",
  "method":"Player.OnPause",
  "params":{
     "data": { "item": { "id":29, "type":"episode" },
               "player": { "playerid":1, "speed":0 }
             },
     "sender":"xbmc"
  }
}

Et le code...

    Dim JSON As String
    Dim values As Newtonsoft.Json.Linq.JObject
    JSON = JSON STRING WOULD GO HERE, COMES from TCP IP STREAM
    values = JObject.Parse(JSON)
    Console.WriteLine(values.GetValue("method"))

À l'aide de cet exemple, je peux extraire la méthode de la clé (exemple: le Joueur.OnPause) à partir du premier niveau de la chaîne JSON, mais comment puis-je extraire des données à partir de la deuxième, et troisième au niveau des chaînes De caractères par exemple au-dessus de la chaîne, être en mesure d'obtenir à niveau de Données JSON valeurs, et de niveau d'objet JSON valeurs. Est-ce possible dans une manière similaire à ce qui précède?

Apprécier tous les conseils que vous pourriez fournir, je suis un apprendre par les exemples de la personne, mais seulement de la difficulté à appliquer quelque chose à lire de multiples imbriquées chaînes JSON, ou plusieurs niveaux. Nul doute qu'il sera facile de chose qui me manque, mais l'id d'apprécier l'aide que quelqu'un pourrait fournir.

Grâce

Ce qui se passe en ce moment si vous ne values.GetValue("data") ou values.GetValue("player")?
Aucune donnée n'est transmis dans les données ou les joueur lors de l'utilisation de ces deux options ci-dessus. Je suis à l'aide de la console.Writeline afin de le tester et il vient à travers le vide. Alors que la Méthode vient à travers avec les données, si c'est comme il n'est pas de l'analyse du deuxième niveau, ou de troisième niveau
Assurez-vous à voter et à indiquer la bonne réponse si igrimpe la solution fonctionne pour vous 🙂

OriginalL'auteur user1829564 | 2012-11-16

  1. 5
        Dim jsonstring = IO.File.ReadAllText("json.txt")
    Dim jo = Json.Linq.JObject.Parse(jsonstring)
    Dim playerid = jo("params")("data")("player")("playerid")

    Voulez-vous dire quelque chose comme cela? "json.txt" ne contient votre chaîne JSON.

    OriginalL'auteur igrimpe

  2. 4

    Après la recherche d'ici et d'ailleurs pour un polymorhic exemple de l'analyse des javascrip objet d'une notation dans un .net dictionnaire, j'ai abandonné et écrit mes propres. J'espère que quelqu'un trouve cela utile 😉

    Public Class jsonDictionary
Inherits Dictionary(Of String, Object)
#Region "Public Properties"
Private _parent As jsonDictionary
Public ReadOnly Property Parent() As jsonDictionary
Get
Return _parent
End Get
End Property
#End Region
#Region "Initialisation and Finalisation"
Public Sub New(ByVal Parent As jsonDictionary, ByVal strJson As String)
_parent = Parent
For Each Element As String In SplitJSON(CharTrim(strJson))
Dim elName As String = CharTrim(Element.Split(":")(0).Trim)
Select Case Element.Split(":")(1).Trim.Substring(0, 1)
Case "{"
Me.Add(elName, New jsonDictionary(Me, Element.Substring(InStr(Element, ":"))))
Case "["
Dim ElArray As New List(Of jsonDictionary)
For Each ArrayElement As String In SplitJSON(CharTrim(Element.Substring(InStr(Element, ":"))))
ElArray.Add(New jsonDictionary(Me, ArrayElement))
Next
Me.Add(elName, ElArray)
Case Else
Me.Add(elName, Element.Split(":")(1).Trim)
End Select
Next
End Sub
#End Region
#Region "Private Methods"
Public Shared Function CharTrim(ByVal Str As String) As String
Return Str.Trim.Substring(1, Str.Length - 2)
End Function
Private Function SplitJSON(ByVal str As String) As String()
Dim ret() As String = Nothing
Dim sqCount As Integer = 0
Dim clCount As Integer = 0
Dim buildStr As New System.Text.StringBuilder
For i As Integer = 0 To str.Length - 1
Select Case str.Substring(i, 1)
Case ","
If sqCount = 0 And clCount = 0 Then
Try
ReDim Preserve ret(UBound(ret) + 1)
Catch ex As Exception
ReDim ret(0)
Finally
ret(UBound(ret)) = buildStr.ToString
buildStr = New System.Text.StringBuilder
End Try
Else
buildStr.Append(str.Substring(i, 1))
End If
Case Else
buildStr.Append(str.Substring(i, 1))
Select Case str.Substring(i, 1)
Case "["
sqCount += 1
Case "]"
sqCount -= 1
Case "{"
clCount += 1
Case "}"
clCount -= 1
End Select
End Select
Next
If buildStr.ToString.Length > 0 Then
Try
ReDim Preserve ret(UBound(ret) + 1)
Catch ex As Exception
ReDim ret(0)
Finally
ret(UBound(ret)) = buildStr.ToString
End Try
End If
Return ret
End Function
#End Region
End Class

    OriginalL'auteur Simon Barnett