Discussion :

[BernardBouree]

Bonjour

Je cherche à décoder une page web à l'aide du code suivant (en utilsant HtmlAgilityPack):

Code :

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

1
2
3
4
Dim sUrl as String = "http://xxxxxx" 
Dim Web As New HtmlWeb()
 Dim HtmlDoc As HtmlDocument = Web.Load(SUrl)
 HtmlDoc.Load(SUrl)

L'exécution me renvoit une erreur "Le format URI n'est pas accepté"

J'ai donc utilisé le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim uri As String = "http://xxxx"
Dim request As HttpWebRequest = DirectCast(WebRequest.Create(uri), HttpWebRequest)
request.Credentials = credentials
request.Timeout = 1 * 60 * 1000
Dim sContenu As String
Dim Doc As HtmlDocument
Using response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
            Using sr As New StreamReader(response.GetResponseStream())
                sContenu = sr.ReadToEnd
            End Using
End Using

Cette fois-ci je n'ai plus d'erreur et j'obtiens bien le contenu dans le string sContenu

Mais je perd la possibilité d'en parcourir les noeuds.

Merci pour votre aide.

Bernard

[mermich]

Salut,


fais web.load ou html.load mais pas les deux:

Code :

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

1
2
3
dim url = "http://something"
Dim Web As New HtmlWeb()
Dim HtmlDoc As HtmlDocument = Web.Load(url)