damiendu56
Messages postés51Date d'inscriptionmardi 19 avril 2005StatutMembreDernière intervention13 juillet 2006
-
9 juin 2005 à 11:44
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 2019
-
9 juin 2005 à 14:38
bonjour a tous
je travaille sous vb5 et je souhaite decouper une chaine de caracteres. cette chaine peut se presenter sous differentes formes "123 - produit1" ou "1231 - produit2" ou "14 - produit3" . Mon pb c que je souhaite recuperer la partie de la chaine avant le caractere de separation "-".
Quelqun connait il la fonction ou autre chose permettant de faire cela ????
Teclis01
Messages postés1423Date d'inscriptionmardi 14 décembre 2004StatutMembreDernière intervention29 décembre 20124 9 juin 2005 à 14:09
Premiere chose pr rendre le traitement plus facile tu enleve les espaces!
chaine= Replace(chaine," ","")
Ensuite tu vas pouvoir traiter
tout cela se passe ds une boucle for
il faut chercher le "-"
nbchaineproduit=Len(chaine)
Donc tu fais
for j=1 to nbchaine
cherche= Mid(chaine,j,1)
if cherche= "-" then
chiffre=Left(chaine,j-1)
prod= Right(chaine,j+1)
exit for
endif
next j
Avec ca, ca devrait etre bon mais j ai ptet fait des erreurs alors test !
si tu as besoin d expliKtion dis le moi
Merci d'accepter la reponse si elle te convient
---------------------------------------------------------------------------------------------
Il vaut mieux poser une question et passer pour bête que le rester toute sa vie
Teclis01
Messages postés1423Date d'inscriptionmardi 14 décembre 2004StatutMembreDernière intervention29 décembre 20124 9 juin 2005 à 14:33
Le replace n est pas obligatoire ds le bout de code que j ai filé il est juste la pour enlever les espaces dans ta chaine mais sinon c pas bien grave !
si il y a des espaces il faut changer :
chiffre=Left(chaine,j-1)
prod= Right(chaine,j+1)
En :
chiffre=Left(chaine,j-2)
prod= Right(chaine,j+2)
Et apres ca devrai fontionner
-------------------------------------------------------------------------------------------------------
Il vaut mieux poser une question et passer pour bête que le rester toute sa vie