Bonjour,
Je récupère un fichier JSON très simple que je désirerais désérialiser. Je suis tombé sur JsonConvert de Newtonsoft.Json. Par contre, je n'ai pas vraiment trouvé de l'aide pour comprendre comment la machinerie fonctionne. Voici des extraits du code (je mets le minimum nécessaire pour ne pas encombrer la lecture).
Le but étant de remplir le tableau TFA qui sera après exploité pour l'affichage, (mais aussi un test d'heure de mise en ligne pour déceler les pannes)
Merci d'avance pour votre aide,Code:
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
36Imports Newtonsoft.Json Module mdl_Alertes ... Public Const sMesDoc As String = "D:\Cloud\Google Drive\meteo\SurvMeteo\datas\" Structure ST_TFA Dim Loc As String 'localisation Dim Dt As Date ' Date et heure comme 2021-07-24 10:55 Dim Temp As Single ' Température Dim Hum As Integer ' humidité End Structure Public Class cl_TFA_JSON Public Property Loc As String Public Property Dt As String Public Property t As Double Public Property hm As Integer End Class Sub LectureJson() Dim sNom As String Dim sLigne As String Dim TFA(7) As ST_TFA ' de 0 à 7 = les 8 thermomètres sNom = sMesDoc & "tfa.json" Dim FileReader = My.Computer.FileSystem.OpenTextFileReader(sNom) sLigne = FileReader.ReadLine FileReader.Close() Dim sJSON = JsonConvert.DeserializeObject(Of ??? )(sLigne) 'c'est quoi le paramètre de « Of » et puis après, comment je fais ? End Sub End Module
Blaise
Voici un exemple de fichier : « [{"Loc":"Extérieur","Dt":"2021-07-24 11:20","t":20.8,"hm":72},{"Loc":"Salon","Dt":"2021-07-24 11:20","t":22.7,"hm":66},{"Loc":"Chambre","Dt":"2021-07-24 11:20","t":21.9,"hm":70},{"Loc":"Bureau","Dt":"2021-07-24 11:20","t":23.6,"hm":61},{"Loc":"Buanderie","Dt":"2021-07-24 11:20","t":24.2,"hm":66},{"Loc":"Serre","Dt":"2021-07-24 11:20","t":27.1,"hm":74},{"Loc":"Garage","Dt":"2021-07-24 11:20","t":22.8,"hm":65},{"Loc":"Sdb Haut","Dt":"2021-07-24 11:20","t":24.1,"hm":62}] »
Soit :Code:
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
