Séparer du texte

Résolu
vbnino Messages postés 218 Date d'inscription jeudi 13 juillet 2006 Statut Membre Dernière intervention 11 juillet 2010 - 7 oct. 2007 à 20:05
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 7 oct. 2007 à 20:23
Salut!

- Par exemple j'ai une textbox avec son texte "Salut!":

   -Comment séparer les caractére et les lister dans une listbox à savoir:

   list1.list(0)="S"
   list1.list(0)="a"
   list1.list(0)="l"
   list1.list(0)="u"
   list1.list(0)="t"
   list1.list(0)="!"

-Merci

1 réponse

cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 23
7 oct. 2007 à 20:23
J'imagine que tu voulais écrire
   list1.list(0)= "S"
   list1.list( 1 ) ="a"
   list1.list(2)= "l"
   list1.list( 3 ) ="u"
   list1.list(4)= "t"
   list1.list( 5 ) ="!"

------------------------------------------------
    Dim I As Integer, Chaine As String
   
    Chaine = "Salut !"
   
    For I = 1 To Len(Chaine)
        If Mid(Chaine, I, 1) <> " " Then
            List1.AddItem Mid(Chaine, I, 1)
        End If
    Next

MPi²
3
Rejoignez-nous