Discussion :

[dagau145]

Bonjour,

J’essaie d'extraire une donnée spécifique en utilisant HtmlAgilityPack d'un tableau HTML pour ensuite mettre cette valeur dans un textBox.

Voici mon code :

Code :

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

1
2
3
4
5
6
        Dim page As New HtmlAgilityPack.HtmlDocument
        Dim node As HtmlAgilityPack.HtmlNode
        page.LoadHtml("http://www.pjm.com/pub/account/lmpgen/lmppost.html")
 
        node = page.DocumentNode.SelectSingleNode("/html/body/center[4]/table/tbody/tr[2]/td[4]")
        txtInterval1.Text = node.InnerText

Je n'ai aucune valeur de retour. Mon problème est surement dans la façon ou je sélectionne mon nœud.

Merci pour votre aide

[chrismonoye]

Bonsoir,
est-ce une faute de copie ?, mais le "tbody" dans la recherche du node semble suspect.

[DotNetMatt]

le "tbody" dans la recherche du node semble suspect.

Pourquoi ? TBODY est bien une balise HTML valide, tout comme THEAD et TFOOT : HTML <tbody> Tag

[EDIT]
Ok, après avoir regardé un peu plus en détail, je comprends pourquoi tu as posté ca chrismonoye

Il y a 2 problèmes dans le code :

La méthode LoadHtml s'attend à recevoir du code HTML et non une URL de page. Donc tu peux remplacer par ceci :

Code VB.NET :

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
Private Function GetHtml() As String
	Dim data = String.Empty
 
	Dim request = DirectCast(WebRequest.Create("http://www.pjm.com/pub/account/lmpgen/lmppost.html"), HttpWebRequest)
	Dim response = DirectCast(request.GetResponse(), HttpWebResponse)
 
	If response.StatusCode = HttpStatusCode.OK Then
		Dim receiveStream = response.GetResponseStream()
		Dim readStream As StreamReader = Nothing
 
		If response.CharacterSet Is Nothing Then
			readStream = New StreamReader(receiveStream)
		Else
			readStream = New StreamReader(receiveStream, Encoding.GetEncoding(response.CharacterSet))
		End If
 
		data = readStream.ReadToEnd()
 
		response.Close()
		readStream.Close()
	End If
 
	Return data
End Function

Et pour l'utiliser :

Code VB.NET :

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

1
2
3
4
Dim html = GetHtml()
 
Dim page = New HtmlDocument()
page.LoadHtml(html)

Comme indiqué par chrismonoye, tbody n'a rien à faire ici car il n'y a pas de tbody dans le code source de la page, donc ton expression xpath doit être :

Code VB.NET :

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

Dim node = page.DocumentNode.SelectSingleNode("/html/body/center[4]/table/tr[2]/td[4]")

[dagau145]

Parfait!!! J'ai testé et tout fonctionne!

Merci!