Discussion :

[romano2003]

Bonjour,
je rencontre un problème avec une expression régulière en vba,
exemple de chaine
"|voiture|voiture auto|vélo toto|velo electrique|voiture electrique"
dans cette chaine je voudrais récupérer les expression contenant velo donc "vélo toto" et "velo electrique"
mon pattern est la suivant
reg.Pattern = "\|.*(velo*.*)\|".

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
 
Set reg = New VBScript_RegExp_55.RegExp
    strtest = "|voiture|voiture auto|velo toto|velo electrique|voiture electrique|"
    reg.MultiLine = False
    reg.IgnoreCase = True
    reg.Global = False
    reg.Pattern = "\|.*(velo*.*)\|"
 
    Set Matches = reg.Execute(strtest)
 
    For Each Match In Matches
        Debug.Print "source >>", Match.Value
        For i = 0 To Match.SubMatches.Count - 1
           MsgBox Match.SubMatches(i)
        Next i
    Next Match

cela m'affiche seulement "velo electrique|voiture electrique", alors que je voudrais "velo toto" puis "velo electrique".
Merci de votre aide.

[romano2003]

bon j'ai trouvé une expression qui m'aide un peu mais ca n'est pas très propre attention aux yeux

Code :

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

 \|([a-zA-Z\sôéàûâùè-_]*velo[a-zA-Z\sôéàûâùè-_]*)\|

le problème c'est que le ne retrouve pas la syntaxe "tout caractère", j'ai essayé (.*) mais sans succès.

mais bon à chaque fois que je me remets aux expressions régulières j'ai toujours la phase d'adaptation.

Au passage j'ai trouvé une extension firefox très pratique pour tester ces expressions avec coloration syntaxique elle se nomme REXT.

[Jean-Philippe André]

salut,
attention, on fait clairement une difference entre les caracteres accentues et ceux sans accent.

Le plus simple serait de creer une fonction intermediaire qui supprime les caracteres accentues. On en trouve de nombreuses en faisant une recherche sur le forum

Sinon, je serais passer par une fonction Split() combinee a un test avec la fonction Instr()