Traduction Html en Regex

Version imprimable

15/12/2011, 21h49
johann77

Traduction Html en Regex

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:

Ce que je récupère

Donc j'ai essayé ça par exemple :

Code:

Dim modele2 As String = "(?<=())(.)+(?=(""))"

Aucune occurrence n'est trouvée :/

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

Merci.
15/12/2011, 23h18
chrismonoye

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

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:

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

Dans le clique du bouton :

Code:

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:

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 :/

16/12/2011, 18h43
chrismonoye

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

Code:

For Each it2 In mc

C'est mc2
Car le modèle pour le text que tu donnes au dessus me semble correct.
16/12/2011, 22h37
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.