Discussion :

[lepieux]

Bonjour
Je tente de mettre le contenu d’une zone de texte dans un tableau de caractères pour ensuite afficher chaque élément du tableau (lettre) .
Je procède comme suit :
Mais j’ai pas le resultat escompté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim i as integer
Dim tablo() as string
Tablo=split(text1.text)
For i=0 to ubound(tablo)
	Msgbox tablo(i)
Next i

Au lieu de m’afficher une lettre , c’est plutot tout le contenu (mot) de la zone de texte qui s’affiche
Merci pour un coup de main

[ProgElecT]

Split permet de créer un tableau en découpant une phrase suivant le séparateur indiqué, s’il n’y est pas spécifié, le séparateur espace est pris par défaut.

Pour ton cas Split ne peut pas être utilisé, il te faut utiliser la fonction Mid.

[lepieux]

voila comment je tente d'utiliser la fonction mid

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim i as integer
Dim tablo() as string
Tablo=mid(text1.text)
For i=0 to ubound(tablo)
	Msgbox tablo(i)
Next i

A l'execution j'ai un message d'errerur "erreur de compilation cet argument n'est pas facultatif"
En fait je veux par exemple, si je saisis essai dans la zone de texte, mettre le mot essai dans un tableau et afficher ensuite chaque lettre à tour de role

[justgreat]

voila comment je tente d'utiliser la fonction mid

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim i as integer
Dim tablo() as string
Tablo=mid(text1.text)
For i=0 to ubound(tablo)
	Msgbox tablo(i)
Next i

A l'execution j'ai un message d'errerur "erreur de compilation cet argument n'est pas facultatif"
En fait je veux par exemple, si je saisis essai dans la zone de texte, mettre le mot essai dans un tableau et afficher ensuite chaque lettre à tour de role

C'est normal que ça marche pas

Essayes ça, si j'ai bien compris ce que tu veux, ça doit répondre à ce que tu cherches :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i As Integer
Dim Taille As Integer
 
Taille = Len(Text1.Text)
Dim tablo() As String
For i = 1 To Taille
ReDim Preserve tablo(i) As String
tablo(i - 1) = Mid(Text1.Text, i, 1)
Next i
 
For i = 0 To UBound(tablo) - 1
    MsgBox tablo(i)
Next i

[ProgElecT]

justgreat
Plutôt que Redim Preserve, il est possible de dimensionner en une seul fois le tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'.......
Taille = Len(Text1.Text)
Dim tablo() As String
ReDim tablo(Taille)
For i = 1 To Taille
'ReDim Preserve tablo(i) As String
tablo(i - 1) = Mid(Text1.Text, i, 1)
'........

Pour lepieux, intéresses toi au fonction Left, Mid et Right dans ton explorateur d'objets (F2 dans l'éditeur VB6) Classes Strings en sélectionnant l'un de ces mots, tu as une petite explication dans la partie basse, si tu veux plus de détails, appuis sur F1, pour cela il te faut MSDN, que tu peux charger ICI (en français).

[lepieux]

Merci à Tous ca marcha