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
Partager