Discussion :

[VRVI44]

Bonjours à tous

Pour introduire ma demande je vais vous expliquer pourquoi je souhaites parser une page web.
Je joue fréquemment au jeux de simulation War Thunder. Le jeux renvoie sur une page web tout un tas de donné concernant l'appareil qu'on pilote. C'est donné sont : le régime du moteur, la température et pression d'huile, l'altitude et j'en passe.
Le but est d'extraire certaine de ces données et de les transmettre plus tard à un arduino, qui ensuite fera tourner des servos moteurs.
La première étape consiste a extraire les données de la page web en parsant le code HTML avec un programme en VB.

Voici une capture d'écran de la page HTML



J'ai commencé a créer mon programme en VB.
Pour expliqué rapidement mon programme, je lui demande de ce connecté à la page web et de récupérer l'id "ind-rpm" et de l'écrire dans un label.
Ce qui m’intéresse surtout c'est donc de récupérer la valeur rpm=0 (cette variable est mise à jour en temps réel en fonction du régime moteur demandé dans le jeux)
Point positif, c'est que lors du débogage il n'y pas d'erreur
Point négatif, c'est qu'il ne ce passe rien lorsque j’appuie sur le bouton dans mon programme

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
Imports HtmlAgilityPack
Imports System.Xml.XPath
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim web As New HtmlWeb
        Dim url As String = "http://x.x.x.x:8111"
        ' load du document html
        Dim doc As HtmlDocument = web.Load(url)
 
        ' Selection des nodes XPATH
 
        Dim MesNodes As HtmlNodeNavigator = doc.DocumentNode.CreateNavigator
        Dim xmlNodeIterator As XPathNodeIterator = MesNodes.Select("//div[@id='ind-rpm']")
        Dim rpm As String
        While xmlNodeIterator.MoveNext()
            ' la ligne ce dessous me génére l'erreur...
            rpm = xmlNodeIterator.Current.SelectSingleNode("rpm").Value
 
           Label1.Text &= "test" & vbCrLf
            Label1.Text &= rpm
        End While
    End Sub
End Class

PS : Les X qui apparaissent à la ligne 6 du code masque mon adresse IP

Merci d'avance à ceux qui me liront

[DotNetMatt]

Code VB.NET :

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

MesNodes.Select("//div[@id='ind-rpm']")

Pas regarde en details, mais on voit que tu selectionnes un DIV, alors que tu devrais selectionner un LI.

[blaise mubadi]

je suis intéressé. mais je ne pas compris ta difficulté?

[VRVI44]

Code VB.NET :

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

MesNodes.Select("//div[@id='ind-rpm']")

Pas regarde en details, mais on voit que tu selectionnes un DIV, alors que tu devrais selectionner un LI.

Donc à la place d'écrire

Code VB.NET :

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

MesNodes.Select("//div[@id='ind-rpm']")

je dois écrire

Code VB.NET :

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

MesNodes.Select("//li[@id='ind-rpm']")

C'est ça ?

je suis intéressé. mais je ne pas compris ta difficulté?

Bah la difficulté c'est lors de l’appuie du bouton rien ne ce passe

[DotNetMatt]

C'est ça ?

En effet :

Code VB.NET :

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

1
2
Dim rpmIndicatorLiNode = doc.DocumentNode.SelectSingleNode("//li[@id='ind-rpm']")
Dim rpmIndidcatorValue = rpmIndicatorLiNode.InnerText ' La on recupere bien rpm=0

[VRVI44]

Merci de m'aider c'est cool

Alors j'ai modifier le programme comme suit

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
Imports HtmlAgilityPack
Imports System.Xml.XPath
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim web As New HtmlWeb
        Dim url As String = "http://x.x.x.x:8111"
        ' load du document html
        Dim doc As HtmlDocument = web.Load(url)
 
        Dim MesNodes As HtmlNodeNavigator = doc.DocumentNode.CreateNavigator
        Dim rpmIndicatorLiNode = doc.DocumentNode.SelectSingleNode("//li[@id='ind-rpm']")
        Dim rpmIndidcatorValue = rpmIndicatorLiNode.InnerText ' La on recupere bien rpm=0
 
        Label1.Text = "test recup var."
    End Sub
End Class

Mais j'ai surement fais une erreur car lors du débogage quand j'appuie sur le bouton, voila ce qu'il ce passe



Je ne vois pas comment régler ce défaut car je comprend pas ce que me demande le logiciel (halala les débutants )

[DotNetMatt]

Alors deja la ligne Dim MesNodes As HtmlNodeNavigator = doc.DocumentNode.CreateNavigator ne sert a rien donc tu peux la virer.

Ensuite, met un point d'arret sur la ligne Dim rpmIndicatorLiNode = doc.DocumentNode.SelectSingleNode("//li[@id='ind-rpm']") et quand il est atteint, regarde la valeur de doc.DocumentNode.OuterHtml et copie-la ici. Ca nous permettra de verifier que la structure du HTML correspond au premier screenshot que tu as mis ici.