Discussion :

[TheMoustic]

Bonsoir à toutes et à tous !

Je sollicite votre aide pour écrire le pattern d'une regexp en VBA Excel.

J'ai une chaîne du type :

Lorem ipsum dolor sit amet, [a]consectetur adipiscing[/a] elit, sed do eiusmod [d]tempor[/d] incididunt ut labore et dolore magna aliqua. Ut enim ad [a]minim[/a] veniam...

Je souhaite récupérer le contenu entre chaque balise via une seule regexp. En bouclant sur les résultats de la regexp on devrait un avoir un truc du genre :

$0 = [a]consectetur adipiscing[/a] (avec comme sous-motif "a", "consectetur adipiscing", "[/a]")
$1 = [d]tempor[/d]
$2 = [a]minim[/a]

J'ai essayé ce pattern :

Code :

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

reg.Pattern = "\[(\w*)\](.*)(\[/\1\])"

Mais il me renvoit ça :

[a]consectetur adipiscing[/a] elit, sed do eiusmod [d]tempor[/d] incididunt ut labore et dolore magna aliqua. Ut enim ad [a]minim[/a]

J'ai donc essayé d'exclure le motif de fermeture de la balise :

Code :

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

reg.Pattern = "\[(\w*)\]([.^(\[/1\])]*)(\[/\1\])"

Mais ça ne fonctionne pas...

Des idées ?

D'avance merci

[mercatog]

Le pattern "(\[\w+\])(\w*\s*\w*)(\[\/\w+\])"

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
Function Extr(ByVal Tmp As String) As String
Dim Rg As Object, MT As Object, M As Object
Dim T As String
 
Set Rg = CreateObject("vbscript.regexp")
With Rg
    .IgnoreCase = True
    .Global = True
    .Pattern = "(\[\w+\])(\w*\s*\w*)(\[\/\w+\])"
    If .Test(Tmp) Then
        Set MT = .Execute(Tmp)
        For Each M In MT
            T = T & ";" & M.Value               'Ici avec balises
            'T = T & ";" & M.SubMatches(1)      'Tu peux en faire ce que tu veux
        Next M
    End If
End With
Set Rg = Nothing
If Len(T) > 0 Then Extr = Mid(T, 2)
End Function

[davido84]

Autre pattern à tester à partir de la fonction proposée par mercatog :

Code :

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

.Pattern = "\[\w].+?\[/\w]"

A+

[mercatog]

+1 davido84

+100 même s'il veut le résultat avec balises

[patricktoulon]

bien vu a tout les deux

[TheMoustic]

Merci beaucoup !!

J'ai opté pour ce code d'une simplicité déconcertante :

Code :

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

reg.Pattern = "(\[\w*])(.+?)(\[/\w*])"

Mais je ne comprends pas cette partie :

Code :

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

.+?