Discussion :

[Kar2013]

Bonnjour à tous,


Je rencontre un petit problème qui me depasse,

J'ai deux petits programmes qui fonctionnent très bien séparement, mais dès que j'essaye les réunir je me retrouve avec des instructions soulignées en bleu autrment dit en erreur.

notament les morceaux d'instructions suivantes: link + doc.DocumentNode.Descendants()
la librairie HTMLAGILTY fonctionne bien


Je sais qu' il est difficile de résoudre ce type de problème sans la totalité des projets, mais je me dis que c'est peut-être un problème classique et qui échappe au débutant que je suis.

Merci par avance

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
   Public Function GetLinks(ByVal doc As HtmlAgilityPack.HtmlDocument) As List(Of Link)
Dim doc = New HtmlAgilityPack.HtmlDocument()
        doc.LoadHtml(WebSource)
        Dim links = GetLinks(doc)
        Dim uri As Uri = Nothing
        Dim source = From link In doc.DocumentNode.Descendants()
                          Where link.Name = "a" _
                          AndAlso link.Attributes("href") IsNot Nothing _
                          Let text = link.InnerText.Trim()
                          Let url = link.Attributes("href").Value
                          Where uri.TryCreate(url, UriKind.RelativeOrAbsolute, uri)
 
        Dim Uris As New List(Of Link)()
        For Each link In source
 
            'en cours de dev
 
 
 
        Next
 
        Return Uris
    End Function

[tomlev]

Qu'entends-tu par "réunir" des projets ? Tu as fait quoi exactement ?
Tu ne donnes pas du tout assez d'éléments pour qu'on puisse t'aider... on ne sait pas ce que tu as fait, ni quelles sont les erreurs, ni ou elles se trouvent

[Kar2013]

Qu'entends-tu par "réunir" des projets ? Tu as fait quoi exactement ?
Tu ne donnes pas du tout assez d'éléments pour qu'on puisse t'aider... on ne sait pas ce que tu as fait, ni quelles sont les erreurs, ni ou elles se trouvent

Pour être plus précis, je prends mon projet 1 et prépare nouveau form similaire au projet 2 et je copie/colle le code du projet 2.

J'ajoute ton les éléments manuellement et rien à faire !

[Kar2013]

Vous trouverez en PJ les erreurs que je rencontre

[tomlev]

Il faut aussi mettre les mêmes références d'assembly dans ton projet, sinon ça ne marchera pas. Recopie aussi les clauses Imports au début du fichier.

La première erreur est juste un avertissement, parce que tu n'as pas précisé le type de la variable. Tu peux le préciser comme ça :

Code :

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

Dim doc As HtmlAgilityPack.HtmlDocument = New HtmlAgilityPack.HtmlDocument

Ou bien, plus court :

Code :

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

Dim doc As New HtmlAgilityPack.HtmlDocument

La 2e erreur est qu'il manque les opérateurs Linq dans le contexte actuel. Vérifie que ton projet a bien une référence à l'assembly System.Core, et que tu as Imports System.Linq au début du fichier.


La 3e erreur est que For Each doit être suivi d'un nom de variable, or tu as écrit Link(), ce qui pourrait correspondre à un appel de fonction ou une déclaration de tableau, mais pas une variable de boucle. Il faut donc écrire :

Code :

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

For Each link In links

[Kar2013]

Merci beaucoup d'avoir pris le temps de corriger ces erreurs.


Je teste et reviens vers vous.