Discussion :

[zooffy]

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 ?

[jopopmk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim strContent As String = sr.ReadToEnd()

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

[zooffy]

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 :

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

[jopopmk]

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 ?

[zooffy]

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 :

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

[DotNetMatt]

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 VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

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 VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jopopmk]

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

[zooffy]

Merci beaucoup pour vos compléments d'information.

Bonne journée à tous les deux.