Expression régulière [Résolu]

peug 234 Messages postés mercredi 25 octobre 2000Date d'inscription 5 octobre 2012 Dernière intervention - 9 févr. 2011 à 15:49 - Dernière réponse : peug 234 Messages postés mercredi 25 octobre 2000Date d'inscription 5 octobre 2012 Dernière intervention
- 9 févr. 2011 à 18:05
Bonjour,

Je dois rechercher dans un chaine la présence de cà par exemple :
{[A]=3;oui;non}
mais de manière plus générale :
{xxxx;xxxx;xxxx}

J'ai pensé à utiliser une expression régulière mais là il me faut un spécialiste
Pouvez m'aider s'il vous plait ;)
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
cs_loulou69 672 Messages postés mercredi 22 janvier 2003Date d'inscription 2 juin 2016 Dernière intervention - 9 févr. 2011 à 16:22
3
Merci
Bonjour

Dim oRegExp As RegExp
Dim str As String
str = "{[A]=3;oui;non}" 'au choix
str = "{xxxx;xxxx;xxxx}" 'au choix
Set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.Pattern = "\{*;*;*}" ' Définition de la balise HTML
oRegExp.Global = True ' On traite toute la chaine
b = oRegExp.Test(str)
MsgBox b

Merci cs_loulou69 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 119 internautes ce mois-ci

Commenter la réponse de cs_loulou69
Meilleure réponse
peug 234 Messages postés mercredi 25 octobre 2000Date d'inscription 5 octobre 2012 Dernière intervention - 9 févr. 2011 à 18:05
3
Merci
Voila, j'ai fait comme ça et ca marche :

oRegExp.Pattern = {[a-z0-9_.-]+=[a-z0-9_.-]+;[a-z0-9_.-]*;[a-z0-9_.-]*}

Merci peug 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 119 internautes ce mois-ci

Commenter la réponse de peug
peug 234 Messages postés mercredi 25 octobre 2000Date d'inscription 5 octobre 2012 Dernière intervention - 9 févr. 2011 à 16:32
0
Merci
ok merci pour ta réponse
mais avec "\{*;*;*}" j'ai rien
et si je fais ça si :
"[{*;*;*}]" bizarrement ca me trouve bien la chaine sauf qu'en utilisant ça :


Dim oRegExp As RegExp 
Dim str As String 
str = "{pas ça} xxxyyzz {[A]=3;oui;non} xxxyyzzz" 
Set oRegExp = CreateObject("VBScript.RegExp") 
oRegExp.Pattern = "[{*=*;*;*}]" 
oRegExp.Global = True 

Dim myMatches As MatchCollection
Set myMatches = oRegExp.Test(str) 

Dim myMatch As Match
For Each myMatch In myMatches
  Debug.Print myMatch.value & vbTab & myMatch.FirstIndex
Next


Ca me trouve même" pas ça}. J'ai l'impression que les * fonctionne comme des OU :(
Commenter la réponse de peug

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.