deserialize json avec multiple objet?

bonjour à tous,

j'essaye en vain de desérialiser un texte au format json pour en extraire les données
le seul problème c'est qu'il y a plusieurs objets à l'intérieur.
je sais le faire sur un json simple mais pas avec de multiples objets.

j'ai tenté les méthodes qu'on peut trouvé sur le net avec "public class..." mais je n'y arrive pas :oops:

merci de l'aide

voici le fichier json récupéré:

Citation:

---

{"reflector":{"reflector":0,"interval":0,"active":0},"staticSubscriptions":[{"talkgroup":123,"networkid":1234,"repeaterid":123456,"slot":2,"type":"tarantool"},{"talkgroup":456,"networkid":1234,"repeaterid":123456,"slot":2,"type":"tarantool"},{"talkgroup":789,"networkid":0,"repeaterid":123456,"slot":1,"type":"delivery"}],"dynamicSubscriptions":[],"timedSubscriptions":[],"clusters":[]}

---

et voila le code que j'essaye d'adapter pour le multi objets ... et qui plante au moment du deserialize :roll:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Console.WriteLine(responseFromServer2)   Dim result2 = JsonConvert.DeserializeObject(Of ArrayList)(responseFromServer2)   Dim token2 As JToken Dim staticSubscriptions As String Dim slot As String For Each value2 As Object In result2 token2 = JObject.Parse(value2.ToString())   staticSubscriptions = token2.SelectToken("staticSubscriptions") 'slot = token2.SelectToken("slot")   Console.WriteLine("{0}", staticSubscriptions) Next value2   ' Clean up the streams and the response. response2.Close()

---

bon bin j'ai trouvé :mrgreen:

on cherche pendant des heures sans rien trouvé. on fait une demande sur un forum et 10 min après on trouve ...
au moins ça pourra servir à d'autre

je me suis tout d'abord servi de ce site pour "construire" mais "Public Class"
http://jsonutils.com/

ensuite reste juste à le rajouter dans le code et voilà... :roll::roll::roll:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim responseFromServer2 As String = reader2.ReadToEnd() Console.WriteLine(responseFromServer2)   Dim result2 = JsonConvert.DeserializeObject(Of Test)(responseFromServer2) For Each value2 As Object In result2.staticSubscriptions Dim staticSubscriptions As String = value2.talkgroup Console.WriteLine("{0}", staticSubscriptions)   Next value2         ' Clean up the streams and the response. reader2.Close() response2.Close()

---