Pb de lecteur ligne par ligne trop rapide

[Résolu]
Signaler
Messages postés
83
Date d'inscription
mardi 30 juillet 2002
Statut
Membre
Dernière intervention
13 février 2008
-
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
-
bonjour tout le monde !
voilà j'ai un fichier texte.txt que j'ouvre ligne par ligne et que je met dans une list box comme ceci :

Open "c:\Program Files\projet\texte.txt" For Binary As #1
Do Until EOF(1)
Line Input #1, LigneFichier
FrmDico.ListeMots.AddItem LigneFichier
Loop
Close #1

ce code marche super bien meme trop bien. En faite j'aimerais qu'il m'affiche dans un text box les mots qu'il entre dans la liste. Pour faire comme une petite animation, un défilement de mot en faite. j'ai bien essayé ça mais sa marche pas :

Open "c:\Program Files\projet\texte.txt" For Binary As #1
Do Until EOF(1)
Line Input #1, LigneFichier
text1.text = LigneFichier
FrmDico.ListeMots.AddItem LigneFichier
Loop
Close #1

le programme n'affiche que le dernier mot de mon fichier dans le text1 on voit pas les mots défilés snif. Quelqu'un peut m'aider ?
antony un ami qui vous veut du bien

7 réponses

Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
16
Salut,

J'ai pensé à mettre un timer :

Le timer est par default : Enabled=false / interval=500

sub commandbutton_click
Open "c:\Program Files\projet\texte.txt" For Binary As #1 
end sub


sub timer_timer
Line Input #1, LigneFichier
FrmDico.ListeMots.AddItem LigneFichier
if eof(1)=true then
timer.enabled=false
Close #1
end if
end sub


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
tu doit ouvrir ton fichier en Input et pas en Binaire
pour que le texte s'afiche il faut un Doevents

Open "c:\Program Files\projet\texte.txt" For Input As #1
Do Until EOF(1)
Line Input #1, LigneFichier
FrmDico.ListeMots.AddItem LigneFichier
Doevents
Loop
Close #1

Bon c'est encore trop rapide !
Messages postés
83
Date d'inscription
mardi 30 juillet 2002
Statut
Membre
Dernière intervention
13 février 2008

j'ai essayé la technique de Cboulas et...ça marche ! impecable ! merci bien !! j'aurais du y penser au timer....par contre Gobillot comme tu le dis toi meme c'est encore trop rapide mais merci quand meme d'avoir essayé ;)
antony un ami qui vous veut du bien
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
16
Juste une correction :

sub commandbutton_click
Open "c:\Program Files\projet\texte.txt" For Binary As #1 
timer.enabled=true
end sub


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]
Messages postés
83
Date d'inscription
mardi 30 juillet 2002
Statut
Membre
Dernière intervention
13 février 2008

j'avais corrigé par moi même ;)
antony un ami qui vous veut du bien
Messages postés
83
Date d'inscription
mardi 30 juillet 2002
Statut
Membre
Dernière intervention
13 février 2008

euh en faite j'ai un autre pb maintenant... c'est plus assez rapide :D. oui j'ai 250 mots a mettre dans la liste et meme en mettant le timer a 1 c'est pas encore ça.... il y aurait pas un moyen d'accélérer un peu les choses ?
antony un ami qui vous veut du bien
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
16
hihi, là je suis écrouler de rire, trop rapide, trop lent, lol

Bien alors à mon avis au début ça va mais après c'est lent.
Mais là je n'est pas de soluce pour cela.

Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]