HttpWebResponse : quelques précisions svp

Version imprimable

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:

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 :
http://www.toopix.eu/userfiles/44044...8c01ea8a13.png

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.

23/06/2010, 17h46
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

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 :
http://www.toopix.eu/userfiles/5ff67...8ccd2a3409.png

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

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

23/06/2010, 19h37
Pol63

le split peut etre une technique, sinon les expressions régulières (regex) devraient aller
23/06/2010, 19h41
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)
24/06/2010, 12h15
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 ;).

@++
24/06/2010, 12h29
Sp4s12

Citation:

Envoyé par lilroma

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 ;).

@++

Je vais voir de ce côté là merci :)

Effectivement, c'est bien cela. Après m'être documenté sur ce que tu m'as conseillé, j'ai enfin pu trouver la solution.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Imports System.Net
Imports System.IO
Imports System.Text
Imports Newtonsoft.Json.Linq
 
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 Stream As Stream = reponse.GetResponseStream()
        Dim readStream As New StreamReader(Stream, Encoding.UTF8)
        Dim lecture = readStream.ReadToEnd
        Dim parsing = JObject.Parse(lecture)
        Dim nickname As String = parsing.SelectToken("players[0].name")
        RichTextBox1.Text = nickname
        Stream.Close()
        readStream.Close()
    End Sub
 
 
End Class