Meilleure approche de validation

Version imprimable

05/10/2010, 15h23
DEV-10

Meilleure approche de validation

Bonjour

J'aimerais développer une petite fonction qui valide le contenu d'un textbox nomé text1:

- Il faut que le premier caractère soit le chiffre 4 ou la lettre C
- Il faut que les caractères suivants sont stricement des chiffres entre 0 et 9
- Il faut que la longueur totale soit égale à 7

1- Mid(text1, 1, 1) = 0 ou Mid(text1, 1, 1) = 'C'
2- Len(text1) = 7
3- .....

Existe t-il une fonction du genre "Isnumber" en VB.NET ? ou faut-il absolument passer par le code ASCII ?

Merci.
05/10/2010, 15h34
yonpo
Salut,

Pourquoi pas une expression régulière du style (testé)
Code:

1 2 ^([4|C]{1})([0-9]{0,6})$

Bonjour,
je pensais à la même chose comme cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Sub text1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles text1.Validating
        Dim entreeATester As String = text1.Text
        Dim pattern As String
        pattern = "^(4|C)[0-9]{6}$"
 
        If entreeATester = Regex.Match(entreeATester, pattern).ToString Then
            MessageBox.Show("OK")
        Else
            MessageBox.Show("NON")
        End If
    End Sub

05/10/2010, 15h51
Pol63

1- Mid(text1, 1, 1) = 4 ou Mid(text1, 1, 1) = 'C'
2- Len(text1) = 7
3- isnumeric (mid(text1,2,6))

à savoir que mid, len et isnumeric sont importées d'une dll de compatibilité vb6
sur vb.net il y a des méthodes sur la classe string (substring, length ...)
m'enfin les méthodes de compatibilité pointes vers les vrais méthodes vb.net donc ca ne change que l'écriture
05/10/2010, 19h52
DEV-10

Citation:

Envoyé par Pol63

1- Mid(text1, 1, 1) = 4 ou Mid(text1, 1, 1) = 'C'
2- Len(text1) = 7
3- isnumeric (mid(text1,2,6))

à savoir que mid, len et isnumeric sont importées d'une dll de compatibilité vb6
sur vb.net il y a des méthodes sur la classe string (substring, length ...)
m'enfin les méthodes de compatibilité pointes vers les vrais méthodes vb.net donc ca ne change que l'écriture

le Mid(text1, 1, 1) = 4 ou Mid(text1, 1, 1) = 'C' me donne des erreurs sur la conversion. C'est parce que on a un chiffre et aussi une lettre. J'ai essayé avec Ctype et Cint et ca marche pas bien.

J'ai utilisé celui de chrismonoye et ça marche bien.

Code:

pattern = "^(4|C)[0-9]{6}$"

Merci chrismonoye et yonpo.

Pol63, est-ce que tu sais comment arranger le problème de conversion.

essaye le dans un énoçé IF ... then

Merci.
05/10/2010, 23h21
Pol63

mid renvoie une chaine de caractère, je vois pas ce que le code ascii vient faire la dedans
si tu veux savoir si la chaine de caractère vaut "4" tu testes si mid() = "4"
06/10/2010, 21h25
DEV-10

Citation:

Envoyé par Pol63

mid renvoie une chaine de caractère, je vois pas ce que le code ascii vient faire la dedans
si tu veux savoir si la chaine de caractère vaut "4" tu testes si mid() = "4"

Oui je l'ai essayé et ça marche. J'avais mis le chiffre 4 et non le string "4".

Cependant je viens de réaliser que

Code:

pattern = "^(4|C)[0-9]{6}$"

de chrismonoye laisse passer une chaine vide.

si par exemple je tape rien dans le texbox text1, le pathern passe.

Y a tu moyen d'arranger ce pattern sans toutefois rajouter une condition IF text1.text = "" then ....

J'ai rajouté le

Code:

{1}

comme

Code:

"^([4|C]{1}) [0-9]{6}$"[/

mais sans succès.

Merci.
07/10/2010, 10h34
yonpo

Je ne crois pas que ça soit possible.
Le mieux donc est de faire un test.

Bonsoir,
on y arrive par une autre approche, enfin selon mes tests rapides.
En initialisant une nouvelle instance de Regex à chaque modification du TextBox, et passant par la méthode IsMatch comme suit :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub text1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles text1.Validating Dim entreeATester As String = text1.Text Dim pattern As String = "^([C4]{1}[0-9]{6})$" Dim rgx As New Regex(pattern) If rgx.IsMatch(entreeATester) Then MessageBox.Show("OK") Else MessageBox.Show("NON") End If End Sub
Bon, reste à tester efficacement pour être sûr.
Pourquoi la première solution laisse passer le "", je ne sais pas et si quelqu'un pouvait nous éclairer...

Bonsoir,
pour illustrer ma question précédente, voici deux fonctions qui devraient apriori donner la même réponse :

Code:

1
2
3
4
5
6
    Private Function Cou4et6Chiffres_test2(ByVal entreeATester As String) As Boolean
 
        Dim pattern As String = "^([4C]{1}[0-9]{6})$"
        Return Regex.IsMatch(entreeATester, pattern)
 
    End Function

et :

Code:

1
2
3
4
5
6
7
8
9
10
    Private Function Cou4et6Chiffres_test4(ByVal entreeATester As String) As String
        Dim pattern As String = "^([4C]{1}[0-9]{6})$"
 
        If entreeATester = Regex.Match(entreeATester, pattern).Value Then
            Return "True"
        Else
            Return "False"
        End If
 
    End Function

Or la validation d'un TextBox vide retourne "False" pour le premier et "True" pour le second ?

bonsoir,
En fin de compte voici l'explication :
Si aucune correspondance n'est trouvée, la valeur de l'objet Match est String.Empty.
Donc dans le cas d'un TextBox vide :
"" = "" et le contrôle conditionnel laisse passer.
Donc il faut l'appliquer après la recherche comme suit :
Code:

1 2 3 4 5 6 7 8 Private Function Cou4et6Chiffres_test4(ByVal entreeATester As String) As Boolean Dim pattern As String = "^([4C]{1}[0-9]{6})$" Dim m As Match = Regex.Match(entreeATester, pattern) Return m.Success End Function
Donc en résumé, on utilise la méthode IsMatch pour vérifier qu'une chaîne est conforme à un modèle particulier sans récupérer cette chaîne.
Pour la vérifier et la récupérer on appelle la méthode Match.

bonjour

qu'est ce que serait le pattern si on veut accepter que les caractères alphabétics ? pas de chiffres et pas de symboles spéciaux ?

Merci.
Citation:
Envoyé par chrismonoye
bonsoir,
En fin de compte voici l'explication :
Si aucune correspondance n'est trouvée, la valeur de l'objet Match est String.Empty.
Donc dans le cas d'un TextBox vide :
"" = "" et le contrôle conditionnel laisse passer.
Donc il faut l'appliquer après la recherche comme suit :
Code:

1 2 3 4 5 6 7 8 Private Function Cou4et6Chiffres_test4(ByVal entreeATester As String) As Boolean Dim pattern As String = "^([4C]{1}[0-9]{6})$" Dim m As Match = Regex.Match(entreeATester, pattern) Return m.Success End Function
Donc en résumé, on utilise la méthode IsMatch pour vérifier qu'une chaîne est conforme à un modèle particulier sans récupérer cette chaîne.
Pour la vérifier et la récupérer on appelle la méthode Match.

08/11/2010, 15h52
chrismonoye

Bonjour,
ça doit être ça :

Code:

"^[a-zA-Z]+$"
08/11/2010, 20h32
DEV-10

Merci bien, ça marche.
connait tu un site en français qui donne tous ces détails sur le
Regex.Match ?

Citation:

Envoyé par chrismonoye

Bonjour,
ça doit être ça :

Code:

"^[a-zA-Z]+$"
10/11/2010, 21h41
chrismonoye

Citation:

Envoyé par DEV-10

connait tu un site en français qui donne tous ces détails sur le
Regex.Match ?

Bonsoir,
j'apprends aussi ce langage et je n'ai pas non plus trouvé de sites complets en français.
La base la plus complète reste :
http://msdn.microsoft.com/fr-fr/libr...=VS.90%29.aspx
Ensuite beaucoup d'exemple en Perl et PHP, sur le net, qu'il faut interpréter.
Et enfin beaucoup d'essais par soi même.