Extraire des données d'un tableau HTML

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:

---

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

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

Citation:

---

Envoyé par chrismonoye

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 :ccool:

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:

---

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:

---

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:

---

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

---

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

Merci!