Extraire les N° d une Text
CrazyMan19
Messages postés
163
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
4 novembre 2013
-
8 avril 2004 à 18:40
CrazyMan19 Messages postés 163 Date d'inscription samedi 2 août 2003 Statut Membre Dernière intervention 4 novembre 2013 - 8 avril 2004 à 19:31
CrazyMan19 Messages postés 163 Date d'inscription samedi 2 août 2003 Statut Membre Dernière intervention 4 novembre 2013 - 8 avril 2004 à 19:31
2 réponses
cs_labout
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
8
8 avril 2004 à 19:00
8 avril 2004 à 19:00
labout
dim monombre as string
dim i as integer
Monnombre=""
For I=1 to len(TExtbox1)
if isnumeric(mid(textbox1.text,I,1) then
MonNombre=MonNombre & mid(textbox1.text,I,1)
endif
next
MSGBOX monnombre
@+
dim monombre as string
dim i as integer
Monnombre=""
For I=1 to len(TExtbox1)
if isnumeric(mid(textbox1.text,I,1) then
MonNombre=MonNombre & mid(textbox1.text,I,1)
endif
next
MSGBOX monnombre
@+
CrazyMan19
Messages postés
163
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
4 novembre 2013
15
8 avril 2004 à 19:31
8 avril 2004 à 19:31
Merci labout
ce code m as bien servi :)
Je suis né intelligent ... L'éducation me détruit ;)
ce code m as bien servi :)
Je suis né intelligent ... L'éducation me détruit ;)
