Comment Parse enfants Json dans VB.NET Newtonsoft (suivi)

Question

Nouveau JSON, je l'ai appris à faire rognures JSON de base (apprentissage de cette question et les réponses. How to Parse Json children in VB.NET Newtonsoft

Merci à cette question et réponse j'ai réussi à lire des données similaires en utilisant VB.Net

Mais mes données sont légèrement différentes ce qui vient aux sous-articles - il a des crochets supplémentaires et je n'ai pas trouvé un moyen de lire les sous-éléments. Ps: J'ai modifié le Json dans la question originale pour le démontrer -

"CcFull": [ 

    [  
     { 
      "Email": "sample.cc@emailDomain.com", 
      "Name": "John Sample" 
     } 
    ] , 
    [ 
      { 
      "Email": "another.cc@emailDomain.com", 
      "Name": "Mike Sample" 
       } 
    ] 
], 

Answer 1

Étant donné que votre JSON est légèrement différent de celui auquel j'ai répondu dans la question référencée, vous devez analyser les choses un peu différemment.

Votre objet "CcFull" est en réalité un tableau de tableaux, désigné par les parenthèses [ et ]. Puisque le premier symbole après le signe deux-points est un crochet ouvert, il indique un tableau. Le symbole suivant est également un crochet ouvert, donc c'est un tableau de tableaux.

Pour déréférencer ceci avec les objets Json.Net, nous devons obtenir la valeur de l'élément comme objet JArray. Nous pouvons alors itérer sur les valeurs du tableau dans cet objet, comme dans l'autre question. Quelque chose comme ceci:

Dim results As List(Of JToken) = o.Children().ToList 
For Each item As JProperty In results 
    item.CreateReader() 
    Select Case item.Name 
     Case "CC" 
      Dim strCC = item.Value.ToString 

     Case "CcFull" 
      Dim ccArray As JArray = item.Value 'Get the top-level array 
      Dim strEmail As String 
      Dim strName As String 
      For Each subitem As JObject In ccArray.Values 
       strEmail = subitem("Email") 
       strName = subitem("Name") 
      Next 
    End Select 
Next