Discussion :

[johann77]

Voila, j'aimerais traduire une séquence Html en Regex. J'ai fait quelques essais mais pas très concluants.

Voici ma ligne HTML :

Code :

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

<p style="top:109px;" class="classe">Ce que je récupère</p>

Donc j'ai essayé ça par exemple :

Code :

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

Dim modele2 As String = "(?<=(<p style=""top:109px;"" class=""classe"">))(.)+(?=(""</p>))"

Aucune occurrence n'est trouvée :/

J'espère que c'est assez clair.

Merci.

[chrismonoye]

Bonsoir,
il n'y a pas de guillemet à </p>
Donc le supprimer dans ton modèle, soit : (?=(</p>))

[johann77]

Merci, mais il ne trouve toujours aucune occurrence :/

Voici le bout de code, tu le reconnaitras chrismonoye puisqu'il est de toi, enfin modifié :

Variables :

Code :

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

1
2
        Dim source2 As String = RichTextBox2.Text
        Dim mc2 As MatchCollection = liens2(source2)

Dans le clique du bouton :

Code :

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

1
2
3
4
5
6
7
8
 
If mc2.Count > 0 Then
                    For Each it2 In mc
                        TextBox1.Text = TextBox1.Text & vbCrLf & it2.ToString
                    Next
                Else
                    MessageBox.Show("aucune occurence trouvée")
                End If

A part :

Code :

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

1
2
3
4
5
6
7
    Private Function liens2(ByVal source2 As String) As MatchCollection
        Dim modele2 As String = "(?<=(<p style=""top:109px;"" class=""classe"">))(.)+(?=(</p>))"
        Dim r2 As New Regex(modele2)
        Dim mcReCherchLiens2 As MatchCollection = r2.Matches(source2)
 
        Return mcReCherchLiens2
    End Function

J'ai dû faire une erreur dans le modele2 :/

[chrismonoye]

Bonsoir,
Je pense que c'est dans ton code Button :

Code :

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

For Each it2 In mc

C'est mc2
Car le modèle pour le text que tu donnes au dessus me semble correct.

[johann77]

Merci, je test dès que je peux, je ne suis pas chez moi.
A mon avis ça vient de là puisqu'il ne récupérait pas dans le bon code source.