Discussion :

[qltmi]

Bonjour,

Je voudrai, grâce aux expressions régulières trouver tous les mots qui sont compris entre certaines balises, par exemple si j'ai

<b>toto</b><b>tata</b>

je voudrai avoir toto et tata en résultat.

Pour cela j'utilise l'expression suivante

Code :

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

<b>(.*)</b>

mais malheureusement j'obtiens toto</b><b>tata, comment faire pour obtenir le résultat que je veux?

Je précise (je ne sais pas si il y a une grande importance), j'utilise VBA et Access.

Merci pour votre aide.

[philben]

bonjour,

une solution parmi d'autres à tester :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Public Function testsb()
   Dim asRes() As String
   Dim i As Integer
   asRes = SansBalise("<b>toto</b><b>tata</b>", ">", "<")
   Debug.Print UBound(asRes)
   For i = 1 To UBound(asRes)
      Debug.Print asRes(i)
   Next i
End Function
 
Public Function SansBalise(ByVal sText As String, ByVal sLimGauche As String, _
                           ByVal sLimDroite As String) As String()
   Dim i As Integer, j As Integer, iNbRes As Integer
   Dim asResults() As String, sRes As String
 
   i = InStr(sText, sLimGauche)
   Do While i > 0
      j = InStr(i + 1, sText, sLimDroite)
      If j > 0 Then
         sRes = Trim$(Mid$(sText, i + 1, j - i - 1))
         If sRes <> vbNullString Then
            iNbRes = iNbRes + 1
            ReDim Preserve asResults(1 To iNbRes)
            asResults(iNbRes) = sRes
         End If
         i = InStr(j + 1, sText, sLimGauche)
      Else
         Exit Do
      End If
   Loop
   SansBalise = asResults
End Function

philippe

[=JBO=]

Bonjour qltmi et philben,
Pour rester sur une solution qui utilise les expressions régulières...

Je voudrai, grâce aux expressions régulières trouver tous les mots qui sont compris entre certaines balises, par exemple si j'ai

je voudrai avoir toto et tata en résultat.

Pour cela j'utilise l'expression suivante

Code :

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

<b>(.*)</b>

mais malheureusement j'obtiens toto</b><b>tata, comment faire pour obtenir le résultat que je veux?

Tu es confronté au comportement "gourmand" du quantificateur "*".
Par "gourmand", on entend que le quantificateur est appliqué à une chaîne de caractères de la plus grande taille possible.

Mais il est aussi possible d'utiliser une version "non gourmande" du quantificateur en lui ajoutant le caractère "?".
Dans une utilisation "non gourmande" (ou encore dite "paresseuse"), le quantificateur est appliqué à la première chaîne de caractères qui se conforme au modèle.

Donc pour ton besoin on utiliserait le modèle suivant:

Code :

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

<b>(.*?)</b>

Des liens pour en savoir plus:
Dépannage des expressions régulières en Visual Basic
Syntaxe d'une expression régulière
_

[cafeine]

Hello,

pour la forme, je me sens obligé de mentionner mon tuto ...
http://cafeine.developpez.com/access/tutoriel/regexp/

et en utilisant la fonction qui est dans le Tuto

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
Allregexp "<b>toto</b><b>tata</b>","<b>(.*?)</b>","$1" & vbcrlf
==================================
      Travaux liés à .Execute
==================================
nombre d'occurences : 2
source >>     <b>toto</b>
[$1]          toto
source >>     <b>tata</b>
[$1]          tata
==================================
        Travaux liés à .Test
==================================
Vrai
==================================
      Travaux liés à .Replace
==================================
toto
tata