VB6 Trouver un chiffre dans une chaine String

Eric -  
teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   -
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

Réponse 1 / 4
monbobo Messages postés 106 Date d'inscription   Statut Membre Dernière intervention   133
 
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
ERIC
 
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
Réponse 2 / 4
kougoue Messages postés 304 Date d'inscription   Statut Membre Dernière intervention   12
 
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
Réponse 3 / 4
teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   1 793
  
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
Réponse 4 / 4
teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   1 793
 
Sinon ca ca devrait aussi marcher 

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

.  .
\_/
0

Discussions similaires

Trouver un nom avec une adresse
lakshmi66 -
Nath01 -

11 réponses