Stockage de caractere dans une boucle for

Question

voila, en faite, j'ai une inputbox, l'utilisateur rentre son texte, et j'aimerais stocké chaque lettre dans une variable différente, mais je n'y arrive pas,... voici mon code :

text = inputbox("texte...")
nbrc = len(text)

for a = 1 to nbrc

cara = left(text, nbrc)
next


voila, mais comment stocker chaque lettre dans une variable différente, vu que je suis dans une boucle...

j'espere avoir été claire,
Merci !

tekila_bandita · Answer

Au faite, en vbs siouplait !

;)

cs_Jack · Answer

Salut
Le d&#233;but est bon (lol) :
monTexte = inputbox("texte...")
nbrc = len(monTexte)

-1- D'abord, il faut pr&#233;parer un tableau qui accueillera chaque lettre :
Dim Tableau() As String

-2- Dimensionner le tableau en fonction de la longueur du texte :
Redim Tableau(nbcr)

-3- D&#233;couper chaque lettre vers le tableur :
For r = 1 To nbrc
   Tableau(r) = Mid(monTexte, r, 1)
Next r

Ensuite, tu auras chaque lettre dans Tableau(1) ... Tableau(x)  o&#249; x = UBound(Tableau)(UBound dernier index du tableau, donc longueur du texte)

Pour info, "Left" (gauche) prend les caract&#232;res situ&#233;s &#224; gauche du texte

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

tekila_bandita · Answer

Merci, mais chez moi ça ne marche pas (je n'ai pas vb6):
indice en dehors de la plage...

Mais bon, pas grave ;)

mais au faite, je voudrais les stocker dans une VARIABLE différente...


MERCI QUAND MEME !
;)

tekila_bandita · Answer

au faite, tu à raison, mon code est faux, voici le nouveau code :

'inputbox
text = inputbox("texte...")
'conte le nombre de caracteres renvoyes
nbrc = len(text)

'la boucle s'execute autant de fois qu'il ya de caracteres
for a = 1 to nbrc
'chaque caracteres est récupéré à chaque boucle
cara = mid(text, a, 1)
next


et j'aimerais donc stoquer chaque caracteres dans une variable différente en dehors de la boucle.
par exemple si l'utilisateur tape : "abc", la lettre "a" est stoquer dans une variable en dehors de la boucle, la lettre "b" de meme, etc...

Capiche? lol

Merci!

cs_CanisLupus · Answer

La r&#233;ponse de jack (avec un tableau) est la meilleure, &#224; mon avis, qu'on puisser te donner.
Que ce soit vbs, vba, vb6 ou vb.net, il n'y a aucun moyen de cr&#233;er des variables (autres que tableau) en dynamique comme tu sembles le souhaiter.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

tekila_bandita · Answer

Bon, bah dommage alors, ps grave!
mais en tout cas, le tableau ne marche pas chez moi!
(en vbs, sans vb6...)

Merci quand meme!

cs_CanisLupus · Answer

D&#233;sol&#233;, les tableaux, &#231;a marche aussi en vbs. Le tout est de d&#233;clarer les variables au bon endroit et surtout de les typer correctement.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

tekila_bandita · Answer

Ouai mais moi je peux déclarere que des variants é sinon copier coller ça marche pas alors j'aimerais un autre code...

MERCI!

pjcleder · Answer

PAT

dim tableau(100) , longueur,i


n = inputbox("Veuillez saisir une chaine de caract&#232;res")


longueur = len(n)


for i= 1 to longueur
 tableau(i) = mid(n,i,1)
next

Ce code marche. Je l'ai test&#233;. N'oublie PAS DE DECLARER TON TABLEAU !

pjcleder · Answer

PAT

le message Indice en dehors de la plage signifie que tu n'as pas d&#233;fini la capacit&#233; de ton tableau.
Dans mon exemple, j'ai d&#233;clar&#233; un tableau de capacit&#233; 100

tekila_bandita · Answer

Ok, mais après l'inputbox rien ne s'execute...
Je pense que ça vienr de chez moi...
Mais sinon, je viens d'y penser, je pourrais les stoquer dans des fichiers txt temporaire, mais le probleme c'est que je n'arrive pas a les créer et a les ecrire dans le meme code...

MERCI EN TOUT CAS !

Stockage de caractere dans une boucle for

11 réponses

Discussions similaires