mots d'un text dans listbox

Question

Je voudrais savoir comment faire pour ajouter tous les mots d'une zone de texte dans une listbox:
txtTexte.text="Bonjour je suis un étudiant en informatique"

On click sur le bouton et on devrait voir Chacun des mots en ordre dans un listbox.

Merci de m'aider !

int19h · Answer

z$=text1 do while z$<>"" if instr(z$," ") <> 0 then list1.Additem mid$(z$,1,instr(z$," ")-1) z$=mid$(z$,instr(z$," ")+1) else List1.Additem z$ z$="" end if loop a+

Jeronimo · Answer

-------------------------------
Réponse au message :
-------------------------------

z$=text1

do while z$<>""
if instr(z$," ") <> 0 then
list1.Additem mid$(z$,1,instr(z$," ")-1)
z$=mid$(z$,instr(z$," ")+1)
else
List1.Additem z$
z$=""
end if
loop

a+
-------------------------------

Mots d'un text dans listbox

2 réponses

Discussions similaires