Discussion :

[BernardBouree]

Bonjour

Dans un fichier assez complexe d'une page Web j'ai une ligne du type:

Code :

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

<div class="global-menu-name"><img src="images/fleche_coude.png" /><a href="hhhhh">Prénom</a> <a href="kkkkkkkkk">Nom</a></div>

Pour détecter et décoder cette ligne j'ai essayer plusieurs methodes du HTMLAgilityPack comme:

Code :

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

Dim DivId As HtmlNode = HtmlDoc.DocumentNode.SelectSingleNode("//div[@class='global-menu-name']")

Mais j'obtiens systématiquement un Nothing.
La raison est que ce DIV n'est pas un fils direct de Body mais que la complexité du Xhtml est telle que je n'arrive pas à déterminer son chemin.

Donc comment faire pour détecter un noeud dont on ne connais pas le chemin ?

Merci

Bernard

[DotNetMatt]

Tu peux parcourir les enfants du noeud principal (DIV) et chercher les noeuds A :

Code VB.NET :

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

1
2
Dim prenom = divId.ChildNodes.SingleOrDefault(Function(c) c.Name = "a" AndAlso c.Attributes("href") IsNot Nothing AndAlso c.Attributes("href").Value = "hhhhh").InnerText
Dim nom = divId.ChildNodes.SingleOrDefault(Function(c) c.Name = "a" AndAlso c.Attributes("href") IsNot Nothing AndAlso c.Attributes("href").Value = "kkkkkkkkk").InnerText

Ou un peu plus simplement avec un foreach (ca revient au même) :

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
Dim prenom = String.Empty
Dim nom = String.Empty
 
For Each child As var In divId.ChildNodes
	If child.Name = "a" AndAlso child.Attributes("href") IsNot Nothing AndAlso child.Attributes("href").Value = "hhhhh" Then
		prenom = child.InnerText
	ElseIf child.Name = "a" AndAlso child.Attributes("href") IsNot Nothing AndAlso child.Attributes("href").Value = "kkkkkkkkk" Then
		nom = child.InnerText
	End If
Next

[BernardBouree]

Bonjour

Le problème est que je n'arrive pas à détecter la ligne et que

Code :

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

Dim DivId As HtmlNode = HtmlDoc.DocumentNode.SelectSingleNode("//div[@class='global-menu-name']")

me renvoie Nothing !

Bernard

[BernardBouree]

Une précision

les lignes qui précédent sont:

Code :

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

1
2
3
4
5
<div id="gw-menu">
<div class="row"><a name="topMenu"></a>
<nav id="header-onglets" class="top-bar" data-topbar="" role="navigation">
<ul class="title-area hide-for-large-up"><!-- Remove the class "menu-icon" to get rid of menu icon. Take out "Menu" to just have icon alone -->
<li class="name"><a href="#"></a>

La ligne de code

Code :

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

Dim DivId As HtmlNode = HtmlDoc.DocumentNode.SelectSingleNode("//div[@id='gw-menu']")

Détecte bien le noeud Div id="gw-menu

mais la ligne

Code :

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

 Dim NoeudGw_Menu As HtmlNode = HtmlDoc.DocumentNode.SelectSingleNode("//div[@class='global-menu-name']")

renvoi Nothing ! Pourquoi ?

Bernard

[DotNetMatt]

Poste tout le HTML on ne peut pas t'aider comme ca.

[BernardBouree]

Bonjour

Le voici en pièce jointe, tout au moins la première partie car le fichier ést trop gros.
La ligne recherche est la 1532.

Merci pour votre aide

Bernard