parcourir une chaine de caractére sous VB

parcourir une chaine de caractére sous VB - VB/VBA/VBS - Programmation

Marsh Posté le 17-03-2006 à 10:23:38    

Bonjour à tous,
Jai besoin de distinguer les différents éléments d'une chaine de chiffres sous VB.
Exemple:
L'utilisateur entre la chaine suivante composée toujours de 6 chiffres et de séparateurs.
1/1/1/2/2/2  
Dans mon programme j'aimerais prendre  la première valeur donc 1 puis la seconde 1 puis la troisieme 1 et ainsi de suite et ce dans le but de réutiliser chacune de ces valeurs dans d'autres calculs, genre :
vala=1
valb=1
valc=1
vald=2
vale=2
valf=2
 
C'est assez urgent donc si quelquun pouvez maider ce serait vraiment une trés bonne action!!!!!!!
merci infiniment

Reply

Marsh Posté le 17-03-2006 à 10:23:38   

Reply

Marsh Posté le 17-03-2006 à 10:48:52    

salut lala,
Malgrès la recherche tu n'as rien trouvé ? La fonction a utiliser est Mid(string, start[, length])

Citation :

Mid, fonction, exemple
Ce premier exemple utilise la fonction Mid pour renvoyer un nombre de caractères déterminé parmi ceux composant une chaîne.
 
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Démo Fonction Mid"    ' Crée une chaîne texte.
FirstWord = Mid(MyString, 1, 4)    ' Renvoie "Démo".
LastWord = Mid(MyString, 6, 8)    ' Renvoie "Fonction".
MidWords = Mid(MyString, 6)    ' Renvoie "Fonction Mid".


@+


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 17-03-2006 à 10:53:49    

watashi a écrit :

salut lala,
Malgrès la recherche tu n'as rien trouvé ? La fonction a utiliser est Mid(string, start[, length])

Citation :

Mid, fonction, exemple
Ce premier exemple utilise la fonction Mid pour renvoyer un nombre de caractères déterminé parmi ceux composant une chaîne.
 
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Démo Fonction Mid"    ' Crée une chaîne texte.
FirstWord = Mid(MyString, 1, 4)    ' Renvoie "Démo".
LastWord = Mid(MyString, 6, 8)    ' Renvoie "Fonction".
MidWords = Mid(MyString, 6)    ' Renvoie "Fonction Mid".


@+


 
je te remercie pour tous tes conseils!lol merci beaucoup

Reply

Marsh Posté le 17-03-2006 à 11:09:49    

Si ton post est résolu il serait bien d'éditer le titre de ton post en l'indiquant :) ça peut aider d'autres personnes...
@+


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed