Aide trouver text svp

cs_jackky Messages postés 50 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 6 juillet 2003 - 31 déc. 2002 à 16:46
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 - 2 janv. 2003 à 10:20
bonjour jai un probleme que certain seront surement a la hauteur pour me repondre!

dans un text numerique jai:

13 576 84 32 000 68 73 51 05 33 13 21 06 666

comment je peux faire pour faire ecrire les chiffre entre 576 et 666 dans un textbox ou richtextbox???

merci beaucoup si vous pouvez m'aider

jackky

4 réponses

ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 26
31 déc. 2002 à 17:18
salut

a$ = "13 576 84 32 000 68 73 51 05 33 13 21 06 666"
textbox1.text = mid$(a$,instr(a$,"576")+4,instr(a$,"666")-instr(a$,"576 ")-5)

voila

ShareVB
0
cs_jackky Messages postés 50 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 6 juillet 2003
1 janv. 2003 à 03:59
merci de ton aide, ca marche quand je le fais de ta maniere,
mais jai un textbox1 pour faire aficher le texte entre le 576 et le 666 et jai le textbox2 qui contient le texte numerique

ex si je fais:

a$= textbox2 pour mettre tout le texte en variable
textbox1.text = mid$(a$,instr(a$,"576")+4,instr(a$,"666")-instr(a$,"576 ")-5)

quand je veux faire a$= textbox2 pour mettre tout le texte dans la variable ca marche pas?

merci si tu peux m'aider la dessus

jackky
0
cs_jackky Messages postés 50 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 6 juillet 2003
1 janv. 2003 à 04:02
ok c correct toute marche merci c super mais une question me chicotte encore c pourquoi le -5 a la fin?
0
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 26
2 janv. 2003 à 10:20
salut

en fait on pourrait ecrire :

mid$(a$,instr(a$,"576")+4,instr(a$,"666")-1-(instr(a$,"576 ")+4)

le instr(a$,"666") donne la position du premier 6 hors on veut la position du caractere d'avant donc on ajoute -1
le instr(a$,"576 ")+4 donne la position du 5 hors on veut la position du caractere apres l'espace apres 576 donc on ajoute +4

mid$ demande comme deuxième parametre la longueur à prélever donc : caractere du debut - caractere de fin

...-1-(...+4)=-5

voila

ShareVB
0
Rejoignez-nous