Bonjour,

J'essaye de parser le code JSON ci-dessous avec la librairie Newtonsoft.Json.

Mon code fonctionne bien mais impossible d'avoir accès aux sous éléments en boucle.
par exemple impossible d'atteindre la variable type dans le sous ensemble Reference

J'arrive toutefois à lire la variable nom


Si vous avez une idée je suis preneur merci.



Extrait code JSON
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
{ 
   "participants":[ 
      { 
         "nom":"PERSY",
         "num":1,
         "age":24,
         "sexe":"H",
         "Tendance":{ 
            "code":"020",
            "libelleCourt":"BAI",
            "libelleLong":"BAI"
         },
         "indicateurInedit":false,
         "nombreCourses":20,
         "nombreVictoires":2,
         "Palmares":{ 
            "gainsCarriere":4380000,
            "gainsVictoires":1710000,
            "gainsPlace":2670000,
         },         
         "Reference":{ 
            "type":"SIMPLE ",
            "rapport":84.5,
            "typeRST":"REFERENCE",
            "indicateurTendance":"+",
            "nombreIndicateurTendance":5.88,
            "date":1448643342000,
            "permutation":1,
            "favoris":false,
            "num":1
         },
         "url":"https://www.monsite.com"
      },
]
 }

Code utilisé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
 
        Dim json As JObject = JObject.Parse(Me.RichTextBox1.Text)
 
 
        For Each Row In json("participants")
 
            MsgBox(Row("type"))
 
 
        Next
 
 
 
 
    End Sub
 
End class

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
 
Public Class JSON_result
    Public code As Integer
    Public nom As String
    Public type n As String
 
 
End Class