Expression régulière et vba

Version imprimable

06/12/2008, 13h32
qltmi

Expression régulière et vba

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

Citation:

tototata

je voudrai avoir toto et tata en résultat.

Pour cela j'utilise l'expression suivante

Code:

(.*)

mais malheureusement j'obtiens tototata, 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.

bonjour,

une solution parmi d'autres à tester :

Code:

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

08/12/2008, 13h26
=JBO=

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

Citation:

Envoyé par qltmi

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:

(.*)

mais malheureusement j'obtiens tototata, 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:

(.*?)

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

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:

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