Discussion :

[Rifton007]

Bonjour à vous tous et merci d'avance pour votre précieuse aide.
Je souhaiterais récupére des données d'une source hmtl.

J'ai donc crée un WebBrowser1 et un RichTextBox1

Code :

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

1
2
3
WebBrowser1.Navigate("http://...")
contenuHTML = WebBrowser1.DocumentText.ToString
RichTextBox1.Text = contenuHTML

La source affiché dans mon RichTextBox1
Je souhaiterais extraire tout les données qui sont en rouge ci-dessous.
Les données en vert se répete dans la source html donc je sais exactement où se trouve les données dont j'ai besoin.

Exemple:
class="SubTD"><br />Nom</a>

Ensuite
(200C)<br />3 Rue des Ponts 59800 LILLE</span>

Ensuite je dois séparer le numéro, l'adresse, le code postale et la ville.
Mais pour ça je vais essayer de me débrouiller seul dans un 1er temps.

Encore merci à vous.

[roster]

Qu'un seul mot: REGEX! (Ha,,, et google...)

[Rifton007]

C'est un programme payant.
De plus, ce que je vouderais, c'est faire de la programmation.


Merci de ton aide

[roster]

Regex pour expression régulières.

http://lgmorand.developpez.com/dotnet/regex/

[Rifton007]

Effectivement c'est plus claire, car j'avais tapé sur google comme tu me l'avais demande et je suis tombé sur un site avec des programmes.

Alors j'ai parcourus le tutoriel que tu ma proposé, j'ai ensuite consulter quelques post sur le forum.

Et je suis arrivé à ce code qui me sert d'apprentissage (j'ai jamais utlisé cela avant)

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim r As New Regex("^(y | z)$")
        Dim m As Match
        m = r.Match("Bonjour yBonjourz")
        Dim Result As String
        If m.Success Then
            Result = m.Groups(1).ToString
        End If
 
        MessageBox.Show("Groupe: " + m.Groups(1).Value)

Donc j'aimerais extraire ce qui se trouve en y et z, donc Bonjour
Je n'ai aucune erreur, mais mon messageBox me donne rien.

merci à toi encore une fois.

[Rifton007]

J'ai réussi avec cette syntaxe, le probléme est que:
Si cela contient un espacement ou un chiffre cela ne marche plus

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim r As New Regex("^class=""soustitre""><br />([\w]+)</a>")
        Dim m As Match
        m = r.Match("class=""soustitre""><br />ADDPOINTSCHAUDS</a>")
 
        If m.Success Then
            MessageBox.Show("Résultat: " + m.Groups(1).Value)
 
        End If

Merci de ton aide