Discussion :

[Titom1978]

Bonjour à toutes et à tous,

Voici mon problème du jour: j'ai codé une fonction pour vérifier qu'une donnée, fournie par le biais d'une "InputBox", corresponde bien à la forme XXXXXXXXXX.XXXX où X est un nombre de 0 à 9.
Les contraintes:
- La donnée à la gauche du point peut comprendre de 1 à 10 chiffres max
- La donnée à la droite du point comprend obligatoirement 4 chiffres max de 0 à 9

Voici le code de ma fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Function controlPoint(ByVal strMail As String) As Boolean
 
Dim reg As New VBScript_RegExp_55.RegExp
 
reg.Pattern = "^(\d{1,10})[.](\d{1,4})$"
controlPoint = reg.Test(strMail)
 
Set reg = Nothing
 
End Function

J'utilise cette fonction avec une boucle Do while & Loop, pour que tant que la donnée ne correspond pas au modèle, elle ne soit pas enregistrée. Le problème est que quand je rentre une donnée dite "bonne", la boucle continue (donc je suppose que ma fonction ne répond pas bien).

Est-ce que quelqu'un pourrait m'aider à solutionner ce petit soucis?

Merci,

Titom

[jimbolion]

Titom1978,

Si le nombre de chiffres doit obligatoirement être de 4 il faut transformer ton expression :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function controlPoint(ByVal strMail As String) As Boolean
 
Dim reg As New VBScript_RegExp_55.RegExp
 
reg.Pattern = "^(\d{1,10})[.](\d{4,4})$"
controlPoint = reg.Test(strMail)
 
Set reg = Nothing
 
End Function

Cette fonction renvoie True (Vrai) si la normalisation de ta châine correspond aux contraintes de ton expression, ainsi via ton éditeur (ctrl+G) et la fenêtre d’exécution tu peux valider tes choix :



Si ta boucle continue de s’exécuter je te conseille de mettre un point d'arrêt sur celle-ci et suivre le déroulement en mode pas à pas afin de vérifier son comportement.

Deux tutoriels qui devraient t'intéresser :

Les expressions régulières : http://cafeine.developpez.com/access...gexp/#LIII-A-1

Les techniques de debug : http://cafeine.developpez.com/access...el/debugprint/

Cordialement

Jimbolion

[Titom1978]

Merci beaucoup pour ton retour,

Je vais tester la fonction et je vais aller faire un tour sur les liens que tu m'as communiqué.

Je reviendrai mettre en [Résolu] si tout est ok!

Merci.

Titom

[Titom1978]

Ca marche!

Merci beaucoup pour les conseils!

A bientôt sur le forum!

Titom