Discussion :

[bernidupont]

Bonjour la team,

j'essaie de trouver l'expression pour tester une chaine contenant un chiffre, mais cela ne marche pas.

Voici mon modèle exemple : (,|"")?41(,|"")?
Voici mes 2 chaines de tests :
- 41 -> vrai
- 54,41,65 -> vrai
- 41,65 -> vrai
- 141 -> faux

Sauriez-vous me dire pourquoi mon modèle ne fonctionne pas ?

Berni.

[sabotage]

Tu n'es pas en PHP ?
Pourquoi tu n'utilises pas simplement 41 comme schéma ?

[bernidupont]

Non je suis en VBA, le système des expressions régulière reste le même.
Qu'entends tu par utiliser 41 comme schéma ?

Pour information, j'utilise le site suivant pour tester les expressions régulières : http://www.annuaire-info.com/outil-r...ion-reguliere/

[sabotage]

Tu n'as pas besoin d'une expression régulière si tu cherches seulement 41 :

Code :

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

InStr(TaChaine, "41") <> 0

[CosmoKnacki]

Je pense que tu essaies de trouver 41 mais pas 541 ou 411. Une solution simple est d'utiliser les word boundaries (~limite de mot).

Un word boundary \b est la limite entre un caractère appartenant à la classe de caractère \w (soit [a-zA-Z0-9_] la plupart du temps) et un caractère n'y appartenant pas ou le début ou la fin de la chaîne.

Ça permet donc de décrire facilement un chiffre non précédé ou non suivi par un autre chiffre. Donc dans ton cas:

Code :

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

\b41\b

Si ta chaîne contient des nombres décimaux et que tu souhaites les éviter:

Code :

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

(?:[^0-9.]|^)41(?:[^0-9.]|$)

ou encore

Code :

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

(?:[^0-9.]|^)41(?![0-9.])

avec un test avant négatif (negative lookahead).


À noter qu'il existe plusieurs syntaxes et moteurs "d'expressions régulières" et qu'elles ne sont pas forcément compatibles les unes les autres. Un lien pour le vba.

[kiki29]

Salut, à voir sur ce forum : Les Expressions Rationnelles appliquées en VBA Access

[bernidupont]

Merci pour votre aide.

En effet, la meilleure solution dans mon cas serait d'utiliser les word boundaries. Merci CosmoKnacki.

En VBA :

Code :

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

1
2
3
Dim reg As VBScript_RegExp_55.RegExp
Set reg = New VBScript_RegExp_55.RegExp
reg.pattern = "\b41\b"

Merci encore.

A bientôt,
berni.