VB6 Trouver un chiffre dans une chaine String

Fermé
Eric - 15 juil. 2003 à 20:32
teebo Messages postés 33491 Date d'inscription jeudi 14 octobre 2004 Statut Modérateur Dernière intervention 24 février 2011 - 17 juil. 2003 à 09:43
Bonjour,
j'ai besoin d'aide. Je dois trouver si une chaîne de caractères commence par un chiffre (0,1,2,3..) sans faire 10 fois le test.

Merci d'avance.

Eric
A voir également:

4 réponses

monbobo Messages postés 106 Date d'inscription jeudi 10 juillet 2003 Statut Membre Dernière intervention 21 octobre 2004 133
16 juil. 2003 à 08:23
Si tu fait une base de donnée sql avec tes chaînes de caractère tu effectuera des requêtes dessus et sql te donnera le résultat sans faillir.

Sinon tu mets un filtre sur ta chaîne pour extraire le premier caractère et tu teste sont type (ou sa valeur) si la valeur des 8premiers ou 4 premier (suivant le programme) est comptis entre 0 et 9 c que c un chiffre ce qui est en même temps leur code ACII je crois comme quoi y apo de confusion possible.
0
Il n'y a pas de base SQL c'est une variable récuréré sur un controle txt que je veux tester.
Un utilisateur entre un mot qui peut contenir mais pas commencer par un chiffre.
je dois faire:
variable = left(variable,1) ' pour isoler le premier caractère
If Val(variable) ... et un test pour savoir si c'est un nombre (reste à définir comment mais en réflaichissant je vais trouver).
Ok mais j'ai le vague souvenir de
If left(variable,1) is numeristic ...
biensure ça marche pas. j'ai posé la question en espérant une réponse de ce type.

Merci pour ta contribution.

Eric
0
kougoue Messages postés 304 Date d'inscription lundi 26 mars 2001 Statut Membre Dernière intervention 9 mai 2007 12
17 juil. 2003 à 02:44
Vas ici
http://www.vbasic.org et tu pouras trouver un code qui te debloque

Une main attache un paquet et deux plusieurs.
Pù me dem bi Mboo tè si kwe
0
teebo Messages postés 33491 Date d'inscription jeudi 14 octobre 2004 Statut Modérateur Dernière intervention 24 février 2011 1 793
17 juil. 2003 à 09:37
Select case left(variable,1)

Case "1","2","3","4","5","6","7","8","9","0"
MsgBox "Sale utilisateur, lis la doc bordel de merde"
Case Else
MsgBox "Felicitation, tu sais la difference entre un chiffre et une lettre
End select



Dans le principe, mais il y a d'autre solutions aussi je pense...

.  .
\_/
0
teebo Messages postés 33491 Date d'inscription jeudi 14 octobre 2004 Statut Modérateur Dernière intervention 24 février 2011 1 793
17 juil. 2003 à 09:43
Sinon ca ca devrait aussi marcher

If variable Like "[0-9]*" then MsgBox "RTFM"


.  .
\_/
0