Parser du Json - Newtonsoft.Json
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:
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:
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:
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 |