Discussion :

[DEV-10]

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.

[yonpo]

Salut,

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

Code :

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

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

[chrismonoye]

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

Code :

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

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

[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

[DEV-10]

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 :

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

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.

[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"