Récupération d'une page HTML dans un string

Bonjour à tous.

Je suis complètement rouillé sur .?NET, ça fait 6 ans que j'ai pas programmé sérieusement (et même programmé tout court). Je potasse un outil perso et dans cet outil j'ai besoins de récupérer le contenu d'une page HTML dans une String pour ensuite découper tout cela et mettre des données au bon endroit.
J'ai ressorti un vieux trucs qui est décrit là : http://pierrejallais.developpez.com/...bRequestVBNet/ mais j'ai un souci pour mettre tout ça dans la variable String. Y a u déclic qui doit pas se faire dans mon vieux cerveau encombré.

Pourriez vous m'aider ?

Salut,

quel est le souci exactement ? Le code du tuto ne fonctionne pas ?
Dans ce code, la ligne qui met la réponse dans une string est celle-ci :

Code:

---

Dim strContent As String = sr.ReadToEnd()

---

Elle est située dans une fonction callback car les requêtes sont faites en asynchrone.

Merci pour ton aide.

Le souci que j'ai c'est que je ne vois pas comment je récupère cette String. Pour l'instant ma page ressemble à ça, le codeBehind :

Code:

---

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 System.Net   Partial Class CapterHereosDraft Inherits System.Web.UI.Page   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load   End Sub End Class   ' La classe RequestState est utilise pour transmettre l'objet HttpWebRequest ' a travers l'appel asynchrone Public Class RequestState   Public Request As HttpWebRequest   Public Sub New() Request = Nothing End Sub End Class   ' Classe effectuant un appel HTTP GET asynchrone ver une URL Public Class GetHttpAsync Public Shared Sub GetPageHD(ByVal url As String) Dim req As HttpWebRequest req = CType(WebRequest.Create(url), HttpWebRequest) ' Creation de l'objet etat Dim rs As New RequestState ' On ajoute la requete dans l'objet etat pour pouvoir le recuperer dans la callback rs.Request = req   ' Appel asynchrone req.BeginGetResponse(New AsyncCallback(AddressOf ResponseCallback), rs) End Sub   Private Shared Sub ResponseCallback(ByVal ar As IAsyncResult) ' Recuperation l'objet etat Dim rs As RequestState = CType(ar.AsyncState, RequestState) ' Recuperation de la requete web (object HttpWebRequest) Dim req As HttpWebRequest = rs.Request ' Recuperation de la reponse web Dim resp As HttpWebResponse = CType(req.EndGetResponse(ar), HttpWebResponse)   Dim responseStream As Stream = resp.GetResponseStream() Dim sr As StreamReader = New StreamReader(responseStream, Encoding.UTF8) Dim strContent As String = sr.ReadToEnd()   responseStream.Close() End Sub End Class

---

Et dans la partie HTML j'ai placé une TextBox et je voudrais mettre le contenu le page cible dans cette TextBox. C'est pour tester la chose uniquement, ce n'est pas le but de la page.
Et donc, je n'arrive pas à comprendre comment je récupère la chaine à partir du CallBack ou du GetPage.
Mais je me suis peut-être planté dans le Class aussi, comme j'ai dit, ça fait un bout de temps que j'ai pas codé.

Encore merci.

Dans l'idée il faudrait que ton callback ait accès à ta TextBox. Maintenant je me dis que l'async est peut-être pas une bonne idée : pas sûr que la réponse à ta requête arrive avant que tu ne finalises ta réponses vers le client. As-tu essayé avec une requête synchrone ?

Pour ne rien te cacher j'avoue que le CallBack, les requêtes synchrone/asynchrone, tout ceci m'échappe un peu.
Par contre, je farfouillé le net et j'ai trouvé un truc qui doit â synchrone, je pense et qui a'air de marcher.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim strHD As String = RetournerChaine("http://heroesdraft.com/view/62686")   txtString.Text = strHD   End Sub   Protected Function RetournerChaine(ByVal url As String) As String Dim result As String   Dim webrequest As HttpWebRequest = DirectCast(HttpWebRequest.Create(url), HttpWebRequest) webrequest.Method = "GET" webrequest.ContentLength = 0   Dim response As WebResponse = webrequest.GetResponse()   Using stream As New StreamReader(response.GetResponseStream()) result = stream.ReadToEnd() End Using Return result End Function

---

Et du coup, dans ma strHD j'ai ma chaine maintenant je vais pouvoir la découper en petit bout pour trouver les infos qui m'intéresse dedans.

Quoi qu'il en soit, merci beaucoup pour ton aide.

Si tu as besoin d'analyser du HTML, je te conseille d'utiliser la librairie HtmlAgilityPack.

Voici un exemple pour charger une page HTML :

Code:

---

1 2	Dim website As New HtmlWeb Dim doc = website.Load("http://heroesdraft.com/view/62686")

---

Ensuite tu peux naviguer dans le HtmlDocument comme dans un fichier XML :

Code:

---

1 2 3 4 5

For Each link As HtmlNode In doc.DocumentNode.SelectNodes("//a") Console.Write(link.InnerText) Console.Write(" - ") Console.Write(link.Attributes("href").Value) Next

---

Dans l'exemple ci-dessus on navige dans les liens, et on affiche dans la console le texte du lien ainsi que son URL.

Tu trouveras pas mal d'exemples en cherchant "HtmlAgilityPack VB.NET" sur ton moteur de recherche prefere ;)

[EDIT] J'ai modifie le premier bloc de code.

Re,

pour le syn/async c'est vraiment pas compliqué :
- synchrone : ton programme s'arrête tant qu'il n'a pas reçu la réponse de ta requête HTTP,
- asynchrone : ton programme poursuit (jusqu'à la clôture de ta réponse au client certainement), quand tu obtiens enfin la réponse à ta requête c'est une fonction qui la gèrera (le callback).

Si ton traitement sur la réponse est un peu long tu peux envisager le deuxième cas, mais ça va demander pas mal de dev pour faire discuter ton client en async (Ajax + timer ou websocket).

Merci beaucoup pour vos compléments d'information.

Bonne journée à tous les deux.