Discussion :

[sniper59]

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

merci de l'aide

voici le fichier json récupéré:

{"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

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
                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()

[sniper59]

bon bin j'ai trouvé

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à...

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
                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()