Discussion :

[cha23]

bonjour
j'utilise htmlagilitypack et j'aimerai récuperer ce qui est juste apres le none

Code :

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

<div class="jQuery_product_metadata_id" style="display: none;">1000140198-0-5-GH:1$v1v$</div>

mon code pour le récupérer

Code :

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

1
2
 Dim tagId = doc.DocumentNode.Descendants("div").Where(Function(t) t.GetAttributeValue("style", "") = "display: none;")
        Dim valID = tagId.Select(Function(t) t.InnerText)

sauf que parfois style="display: none;" est utilisé autre part dans la source du coup ca me fausse pas mal de chose

exemple ou il est utilisé autre part:

Code :

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

1
2
<div class="_tvly_adSense_template_target_sponsored_links1" style="display: none;"></div>
<script type="text/javascript">

merci d'avance

[tomlev]

Tu devrais peut-être plutôt te baser sur l'attribut class, non ?

Code :

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

1
2
Dim tagId = doc.DocumentNode.Descendants("div").Where(Function(t) t.GetAttributeValue("class", "") = "jQuery_product_metadata_id")
        Dim valID = tagId.Select(Function(t) t.InnerText)

ça me semble moins hasardeux que de se baser sur une valeur de style...

[cha23]

je suis un vrai endormit je pensais l'avoir tester .....

merci Tomlev

[cha23]

juste une dernière question si au contraire je voulais récupéré ce qu'il y a dans le style je dois faire comment?

[tomlev]

juste une dernière question si au contraire je voulais récupéré ce qu'il y a dans le style je dois faire comment?

Je comprends pas ce que tu veux dire... tu sais déjà récupérer le contenu du style, c'est ce que tu faisais dans ton code d'origine (avec GetAttributeValue)

[cha23]

non ca me donner ce que je voulais mais parfois ca me donenr de mauvais truc
la en fait j'aimerai recuperer ce qu'il y a dans "alt" dans cette exemple

Code :

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

1
2
3
4
5
<div class="rating">
            <a href="blablabla>
                <img src="blablabla" alt="3 étoile" />
            </a>
        </div>

d'ou ma question en pensant que c'etais ce que j'avais posé avant

[DonQuiche]

non ca me donner ce que je voulais mais parfois ca me donenr de mauvais truc

En fait je suppose que tu récupérais bien la valeur désirée mais que tu rencontrais un problème d'encodage de la page : si tu l'as récupérée via une instance de WebClient (qui présume que la source est en utf-8) et que le serveur t'a envoyé autre chose, certains caractères ("&" notamment) seront corrompus. Il faut spécifier le bon encodage à WebClient dans ce cas.

[tomlev]

Tu peux faire quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
Dim ratings = _
    From div In doc.DocumentNode.DescendantNodes("div") _
    Where div.GetAttributeValue("class", "") = "rating" _
    From img In div.DescendantNodes("img") _
    Select img.GetAttributeValue("alt")
 
Dim rating = ratings.FirstOrDefault()

[cha23]

Bonjour Tomlev,
doc.DocumentNode.DescendantNodes("div") m'affiche une erreur:

Erreur 1 L'expression de type 'HtmlAgilityPack.HtmlNode' ne peut pas être interrogée. Vérifiez que vous n'omettez pas une référence d'assembly et/ou une importation d'espace de noms pour le fournisseur LINQ

[tomlev]

En fait c'est Descendants, pas DescendantNodes :

Code :

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

1
2
3
4
5
    Dim ratings = 
        From div In doc.DocumentNode.Descendants("div")
        Where div.GetAttributeValue("class", "") = "rating"
        From img In div.Descendants("img")
        Select img.GetAttributeValue("alt", "")

Et vérifie que tu as bien mis Imports System.Linq au début de ton fichier

[cha23]

Merci beaucoup Tomlev

[cha23]

Pour revenir a ce que dit DonQuiche ,en effet j'ai un souci d'encodage
le texte est encodé en utf8 mais j'arrive pas a le modifier pour qu'ils acceptent les caractères avec accent ou alors le changer en "No Dom"

j'ai beau faire

Code :

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

1
2
3
4
5
6
        Dim doc = New HtmlDocument()
        Dim wc = New WebClient()
 
        wc.Encoding = System.Text.Encoding.Unicode
        ' ou 
        wc.encoding=system.text.encoding.getencoding(1252)

en essayant plein de code ca ne change rien du tout

[tomlev]

Et tu as essayé avec Encoding.UTF8 ?

[cha23]

oui

[tomlev]

Essaie plutôt avec la classe HtmlWeb, elle gère automatiquement l'encodage :

Code :

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

1
2
3
Dim web As New HtmlWeb()
Dim doc = web.Load(url)
...

[cha23]

parfais ça marche nickel!!!

merci encore

[cha23]

reste juste un petit soucis avec les "é" en "é"
et si possible transformer les "&amp" en "&"

edit:c'est bon j'ai fait un replace et ça marche bien

mais si y a une autre méthode je reste preneur

[DonQuiche]

Il suffit de passer les chaînes par HttpUtility.HtmlDecode.

[cha23]

j'ai pas tout comprit la methode a suivre vu que quand je fais

Code :

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

httpUtility.htmlDecode("&","&")

ca me met que httputility n'est pas déclaré

[DonQuiche]

Il suffit d'ajouter une référence à System.Web.dll. Si celle-ci n'est pas visible, modifier les propriétés du projet pour choisir la version complète du framework et non le "client profile" (sous-ensemble allégé du framework destiné à faciliter la distribution des applis dotnet sur les anciennes version de Windows).