pb de lecteur ligne par ligne trop rapideRésolu

Question

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	exte.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	exte.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

cboulas · Accepted Answer

Salut,

J'ai pensé à mettre un timer :

Le timer est par default : Enabled=false / interval=500


sub commandbutton_click
Open "c:\Program Files\projet	exte.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]

Gobillot · Answer

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	exte.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 !

cs_Antony · Answer

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

cboulas · Answer

Juste une correction :


sub commandbutton_click
Open "c:\Program Files\projet	exte.txt" For Binary As #1 
timer.enabled=true
end sub


Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_Antony · Answer

j'avais corrigé par moi même ;)
antony un ami qui vous veut du bien

cs_Antony · Answer

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

cboulas · Answer

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]

Pb de lecteur ligne par ligne trop rapide

7 réponses

Discussions similaires