Discussion :

[Sp4s12]

Salut à tous !

Afin de me préparer à un petit projet d'application, j'essaye d'apprendre petit à petit quelques fonctions de VB.net.

Aujourd'hui, j'essaye de faire une requête http afin de récupérer des données sur un API web (ici).

J'ai déjà fait ce code :

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
 
Imports System.Net
Imports System.IO
Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim requete As HttpWebRequest = HttpWebRequest.Create("http://api.bfbcs.com/api/pc?players=Sp4s12&fields=all")
        Dim reponse As HttpWebResponse = requete.GetResponse()
        Dim receiveStream As Stream = reponse.GetResponseStream()
        Dim readStream As New StreamReader(receiveStream, Encoding.UTF8)
        RichTextBox1.Text = readStream.ReadToEnd
        receiveStream.close()
        readStream.close()
    End Sub
End Class

Cela marche plutôt bien mais j'ai une question...
Ce code me retourne ce résultat :


Des lignes et des lignes de résultat de requête. Evidemment, cela ne présente aucun intérêt de mettre une richtextbox pour cela. Mais c'était pour illustrer ma question :

Comment assigner une valeur à un emplacement de tableau ?

J'ai vraiment du mal avec les tableaux, alors si en plus il faut les ajouter aux requêtes j'en ai pas fini...

Merci d'avance, et excusez moi si j'ai raté quelque chose.

[Hinault Romaric]

Salut,

Je ne saisie pas très bien ta question si tu veut juste assigner une valeur à un tableau c'est T("index") = "valeur".

Mais je crois que ton problème c'est de récupérer une valeur de la réponse web, faudra déjà savoir que tes données sont retourné au format JSON(JavaScript Objet Notation).
Concernant la manipulation dans une application .net je suis pas très situé, l'unique fois ou j'ai eu a manipulé des données JSON je les ai sérialisé en XML pour les traiter par la suite. Sinon y'a la bibliothèque JSON.net qui permet de manipuler avec souplesse des données JSON dans une application .net

[Sp4s12]

Merci pour ta réponse. Je suis allé télécharger la dll Json et grâce à quelques recherches dans Visual Basic 2010 Express, j'ai réussi à avoir un résultat sous forme de liste comme celle-ci :


Voici le code que j'ai trouvé pour le résultat de l'image ci-dessus :

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
 
Imports System.Net
Imports System.IO
Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim requete As HttpWebRequest = HttpWebRequest.Create("http://api.bfbcs.com/api/pc?players=Sp4s12&fields=kits")
        Dim reponse As HttpWebResponse = requete.GetResponse()
        Dim receiveStream As Stream = reponse.GetResponseStream()
        Dim readStream As New StreamReader(receiveStream, Encoding.UTF8)
        Dim lecture = readStream.ReadToEnd
        Dim deserialize = Newtonsoft.Json.JsonConvert.DeserializeObject(lecture)
        RichTextBox1.Text = deserialize
        receiveStream.Close()
        readStream.Close()
    End Sub
End Class

Pour l'instant, c'est plutôt convaincant...

Il ne me reste plus qu'a trouver comment faire pour récupérer chacune de ses valeurs...

[Pol63]

le split peut etre une technique, sinon les expressions régulières (regex) devraient aller

[Sp4s12]

Je ne suis pas du tout copain avec les expressions régulières... j'ai tenté de lire certaines choses la-dessus, mais c'est trop mal expliqué. Je ne suis que débutant et c'est trop lourd pour moi...
Je pense qu'il devrait y avoir un moyen de lire les valeurs directement avec la library que j'ai installé... le truc c'est qu'elle est très mal documentée (du moins pour VB.net)

[Hinault Romaric]

Salut,

Au lieu de deserialiser en objet .net, avec Linq to Json je crois que tu pourras facilement récupérer une valeur dans ton document JSON, faudra creuser de ce coter .

@++