Bonjour à tous,
je coince sur le chargement de mes données à partir d'un fichier JSon téléchargé sur le Web :
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Imports VB = Microsoft.VisualBasic
Imports System
Imports System.IO
Imports System.Net
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
 
sub test()
        Dim JSonArrivee As JObject
        Dim Courses As String
        Dim DateCourse As String
        Dim MonURL As String
        Dim arrivee As String
        Dim Arrive As JToken
        Dim NGa As String
        Dim NP2 As String
        Dim NP3 As String
        Dim NP4 As String
        Dim NP5 As String
        Dim WebClient As New System.Net.WebClient()
        Dim UserAgent As String
 
        DateCourse = "13032020"
        MonURL = "https://offline.turfinfo.api.pmu.fr/rest/client/1/programme/" & DateCourse & "/R1/C1"
        Courses = My.Application.Info.DirectoryPath & "\Arrivees-R1C1-" & DateCourse & ".JSon"
        Try
            UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)"
            WebClient.Headers.Add(HttpRequestHeader.UserAgent, UserAgent)
            WebClient.DownloadFile(MonURL, Courses)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        '***
        '*** Chargement du JSonObjet Arrivee
        '***
        Try
            JSonArrivee = JObject.Parse(File.ReadAllText(Courses))
            Arrive = JSonArrivee.GetValue("ordreArrivee")
        Catch ex As Exception
            MsgBox("Pas d'arrivée disponible pour la Réunion R1C1")
            exit sub
        End Try
        '***
        '*** Chargement de l'arrivée
        '***
        NGa = Arrive(0).ToString
        NP2 = Arrive(1).ToString
        NP3 = Arrive(2).ToString
        NP4 = Arrive(3).ToString
        NP5 = Arrive(4).ToString
end sub
Ca marche, mais j'obtient : "[" & vbCrLf & " 6" & vbCrLf & "]"
Je voudrais que le 6

j'ai aussi testé ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
                NGa = Arrive.SelectToken(0).ToString
                NP2 = Arrive.SelectToken(1).ToString
                NP3 = Arrive.SelectToken(2).ToString
                NP4 = Arrive.SelectToken(3).ToString
                NP5 = Arrive.SelectToken(4).ToString
Mais ca plante en exception

URL du JSon : https://offline.turfinfo.api.pmu.fr/...1#ordreArrivee

Je veux récupérer la valeur des index 0 à 4, les 5 premiers chevaux de l'arrivée.

Merci de votre aide.