Discussion :

[johann77]

Bonjour, je suis en train d'améliorer un de mes programme mais je bute sur quelque chose : Je n'arrive pas a faire sélectionner une portion de ligne qui se trouve entre 2 chaînes de caractères.

Le principe c'est que je récupère le code source du WebBrowser dans une RichTextBox une fois que la personne est connectée, et je recherche le morceau de ligne situé entre :

Code :

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

<a class="" href="

et

Code :

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

">

Vous aurez compris que c'est une adresse que je cherche à récupérer, qui change en fonction du compte connecté.

J'ai vu ce sujet (ici) mais rien de très concluant je crois ...

J'ai aussi essayé ceci, mais la RichTextBox2 me marque "False" :

Code :

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

1
2
3
4
Try
            RichTextBox2.Text = RichTextBox1.Text.StartsWith("<a class=" & Chr(34) & Chr(34) & " href=" & Chr(34)) And RichTextBox1.Text.EndsWith(Chr(34) & ">")
        Catch ex As Exception
        End Try

Merci d'avoir prêté attention à mon problème.

[tomlev]

J'ai aussi essayé ceci, mais la RichTextBox2 me marque "False" :

Bah oui, puisque tu affectes au texte le résultat d'une condition...

De toutes façons, il y a des outils exprès pour parser du HTML, si tu essaies de le faire à la main en manipulant directement les chaines de caractères tu vas galérer. Utilise plutôt un outil comme Html Agility Pack.

Ou même, puisque tu as déjà le WebBrowser, tu peux utiliser sa propriété Document. Le code suivant affiche l'adresse de chaque lien dans la page :

Code :

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

1
2
3
4
5
6
    HtmlElementCollection links = webBrowser1.Document.GetElementsByTagName("a");
    foreach (HtmlElement link in links)
    {
        string url = link.GetAttribute("href");
        MessageBox.Show(url);
    }

[johann77]

Merci pour cette réponse, mais étant débutant je ne sais pas retranscrire du C# en Vb.

Une petite traduction serait-elle possible ?

Merci.

[tomlev]

Ah pardon, j'avais pas vu que tu travaillais en VB...

Code :

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

1
2
3
4
5
Dim links As HtmlElementCollection = webBrowser1.Document.GetElementsByTagName("a")
For Each link As HtmlElement In links
	Dim url As String = link.GetAttribute("href")
	MessageBox.Show(url)
Next

(traduit avec ça)

[johann77]

Merci, c'est dans l'idée, mais là il me récupère tous les liens de la page, alors qu'avec le code source seuls les liens dont j'ai besoin commencent par

Code :

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

<a class="" href="

Je vais essayer de me débrouiller, les adresses commencent toutes pareil, ça devrait aller.

Merci beaucoup.

[tomlev]

Tu peux toujours récupérer l'attribut "class" et vérifier sa valeur...