EST CE UN CHIFFRE OU UNE LETTRE

Question

Bonjour,

Existe t'il un moyen rapide de savoir si une chaine est composée uniquement de lettres ou de chiffres ?

Je suis sur un formulaire, je récupère une entrée et je dois vérifier que le texte rentré est une suite de 6 chiffres.

Merci de votre aide...

 :-p  :-p  :-p  :-p  :-p  :-p  :-p  :-p 
Nag
mail : nagattaque@free.fr
msn : giraudnba@msn.com
 :-p  :-p  :-p  :-p  :-p  :-p  :-p  :-p

dandyjulio · Answer

Il faut utiliser des expressions régulières.
Consulte l'aide .NET en cherchant "expressions régulières"
(le type ca doit être regex)

Scalpweb · Answer

Ou, tout simple : for i = 1 to 6 if mid(ta_chaine, i, 1) <> 1 or mid(ta_chaine, i, 1) <> 2 or mid(ta_chaine, i, 1) <> 3 or mid(ta_chaine, i, 1) <> 4 or mid(ta_chaine, i, 1) <> 5 or mid(ta_chaine, i, 1) <> 6 or mid(ta_chaine, i, 1) <> 7 or mid(ta_chaine, i, 1) <> 8 or mid(ta_chaine, i, 1) <> 9 or mid(ta_chaine, i, 1) <> 0 then goto err next i exit sub err: msgbox "la chaine n'est pas composé de 6 chiffres" Enfin bon... il y a surement plus simple, mais c'est ce qu'il m'est venu là ! ;-)

crenaud76 · Answer

Il y a effectivement bcp plus simple :

for i = 1 to 6
  if not isnumeric(mid$(ta_chaine, i, 1)) then goto err
next
exit sub

err:
msgbox "la chaine n'est pas composé de 6 chiffres"

Christophe R.

MOONWAX · Answer

Ou, également tout simple :

Private Function IsNumeric(ByVal sTest As String) As Boolean

    Dim i As Integer

    For i = 1 To 6
        If Val(Mid(sTest, i, 1)) = 0 And Mid(sTest, i, 1) <> "0" Then
            IsNumeric = False
            Exit Function
        End If
    Next
    IsNumeric = True

End Function

MOONWAX · Answer

Désolé Christophe, tu as gagné...

Ta solution n'apparaissait pas encore à mon écran, et j'avais complètement oublié que la fonction IsNumeric était déjà incorporé dans VB6...

Scalpweb · Answer

Oui, on aurait aussi put faire autre chose :
on passe la valeur dans une variable de type integer, et l'on voit si cela génère une erreur.

crenaud76 · Answer

On peut aussi faire cela :

Function Is6Digit(LaChaine as String) as Boolean
  Is6digit = (LaChaine like "[0-9][0-9][0-9][0-9][0-9][0-9]")
End Function

comme cela, elle me plait bien !!

Christophe R.

Scalpweb · Answer

Evidemment, on récupère l'erreur à l'aide On error goto.

Comme ça, pas de boucle for...

Mais bon, je chipotte là ;-)

Scalpweb · Answer

Je connaissais pas cette manière de faire, crenaud76. C'est effectivement très simple comme ça.

crenaud76 · Answer

Scalpweb !! Non car la chaine "10E+02" rentre dans un integer sans faire d'erreur, or tu n'as pas une chaine de 6 digits la !!!!

Christophe R.

Scalpweb · Answer

Ah oui mince. J'avais pas penser à cette éventualité. Désolé...

cs_PhilippeE · Answer

Une suite de 6 chiffres ... pas de point décimal.

Function bIsChampValide(psMaChaine as String) as BooleanbIsChampValide (CStr(Val(psMaChaine)) psMaChaine) And (Len(psMaChaine)=6)
End Function

nagattaque · Answer

Bon ba maintenant je vais fair eun plouf plouf... Merci en tout cas, et la meme chose pour que des lettres ca existe aussi ??? lol

merci de votre devouement!!

 :-p  :-p  :-p  :-p  :-p  :-p  :-p  :-p 
Nag
mail : nagattaque@free.fr
msn : giraudnba@msn.com
 :-p  :-p  :-p  :-p  :-p  :-p  :-p  :-p

nagattaque · Answer

Bon ba maintenant je vais fair eun plouf plouf... Merci en tout cas, et la meme chose pour que des lettres ca existe aussi ??? lol

merci de votre devouement!!

 :-p  :-p  :-p  :-p  :-p  :-p  :-p  :-p 
Nag
mail : nagattaque@free.fr
msn : giraudnba@msn.com
 :-p  :-p  :-p  :-p  :-p  :-p  :-p  :-p

crenaud76 · Answer

La même chose que pour 6 digits, à deux ou trois détails près

Function Is6Letters(LaChaine as String) as Boolean
Is6digit = (Lcase$(LaChaine) like "[a-z][a-z][a-z][a-z][a-z][a-z]")
End Function


Christophe R.

nagattaque · Answer

merki !!!

 :-p  :-p  :-p  :-p  :-p  :-p  :-p  :-p 
Nag
mail : nagattaque@free.fr
msn : giraudnba@msn.com
 :-p  :-p  :-p  :-p  :-p  :-p  :-p  :-p

rgautomatisation · Answer

Il y a une autre facon assez simple...


Dim tachaine$
    tachaine$ = Val(tachaineTB.Text)
    If tachaineTB.Text = tachaine Then
        'Nombre seulement
    ElseIf tachaineTB.Text = tachaine Then
        'Contient autre que nombre
    End If


RGautomatisation

rgautomatisation · Answer

oups... j'ai oublier le $ apres tachaine a 2 endroits -> tachaine$
RGautomatisation

Scalpweb · Answer

La solution de crenaud 76 reste tout de même la plus simple au final il me semble.

MOONWAX · Answer

Non mais ! RGautomatisation, regarde le commentaire de crenaud76 sur l'exception crée par un string comme "1E+999". Ou le "10D999", ça crée des jolies erreurs aussi; en plus, avec la fonction "Val", tu ne peux pas gérer les cas comme "000001", pourtant une suite de 6 chiffres correcte... 

Moi aussi, je préfère celle avec l'opérateur "Like" - merci Christophe !

rgautomatisation · Answer

ouais c'est vrai.. j'admet!!!
Désolé! ;-) j'ai juste pensé ca comme ca...  je ne dirai plus de betise.. promis ;-)...
En passant... est-ce qu'il y a un moyen de modifier un message envoyer? lorsque j'ai vu les fottes j'ai voulu modifier mais je n'ai pas vu comment...
Merci

RGautomatisation

crenaud76 · Answer

On peut meme généraliser encore plus ma fonction pour une chaine de longueur variable :

Function IsNLetters(ByVal N as long, ByVal LaChaine as String) as Boolean
Dim i As Long,Buffer As String
For i = 1 to N
  Buffer = Buffer & "[a-z]"
Next
IsNLetters = (Lcase$(LaChaine) Like Buffer)
End Function

ou pour N chiffres

Function IsNDigits(ByVal N as long, ByVal LaChaine as String) as Boolean
Dim i As Long,Buffer As String
For i = 1 to N
  Buffer = Buffer & "[0-9]"
Next
IsNDigits = (LaChaine Like Buffer)
End Function


Christophe R.

crenaud76 · Answer

Je crois qu'on est en train d'exploser le record du Thread le plus long de ce forum !!!

Christophe R.

nagattaque · Answer

bon ba avec ca... je sais dire si la chaine est uniquement faite de chiffres ou de lettres... 

Encore merki beaucoup !!!!

 :-p  :-p  :-p  :-p  :-p  :-p  :-p  :-p 
Nag
mail : nagattaque@free.fr
msn : giraudnba@msn.com
 :-p  :-p  :-p  :-p  :-p  :-p  :-p  :-p

Scalpweb · Answer

Voilà, et ben je crois que l'on peut dire bravo à Crenaud76, il a pratiquement tout fait le boulot tout simple !

DevLama · Answer

Bon,d'abord il faut utiliser la longueur du champs par rapport aux caractères saisis,


Dim longnom as Long
dim Nom as string
Nom=text1.Text
Longnom=Len(Nom)
if longnom < 6  And Not IsNumeric(Nom) then
msgbox "Valeur saisie inferieur à 6 ou Ne pas en chiffre",vbcritical
end if

cs_ShayW · Answer

Salut
Dim x As Integer
Dim lachaine As String
lachaine = "12er345"
If Integer.TryParse(lachaine, x) Then
    MessageBox.Show("chaine numérique")
 Else
    MessageBox.Show("chaine alphanumérique")
End If

ucfoutu · Answer

Bonjour
Que se passerait-il avec cette méthode si (par malheur ou maladresse ou erreur), était frappée puis analysée la chaîne de caractères "&H20", par exemple, alors que l'utilisateur avait voulu frapper "1H20", mais en utilisant, pour frapper le "1", la 2ème touche du clavier alpha mais en oubliant de se mettre en majuscules ?

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

Bonjour Ucfoutu 
j'analyse 
avec &H20 
&H20 = 20 hexa 

Try
   x = Integer.Parse(lachaine, Globalization.NumberStyles.HexNumber)
            MessageBox.Show("chaine numérique")
Catch ex As Exception
            MessageBox.Show("chaine alphanumérique")
End Try

EST CE UN CHIFFRE OU UNE LETTRE

29 réponses

Discussions similaires