Page 1 sur 1

[R] Reprise d'une boucle While 1 .... WEnd

Posté : mar. 27 nov. 2018 12:51
par GMH
Bonjour,

Je souhaiterais qu'arrivé à la fin de la lecture d'un fichier-texte, ligne par ligne, le programme recommence sa lecture au début.
Mon code des plus classiques est :

Code : Tout sélectionner

While 1
	If _IsPressed("1B") then
		ExitLoop
	EndIf
	Local $ligne = FileReadLine($hFile)
	Ici : affichage de la ligne avec temps d'attente 
WEnd
Je vous remercie de m'aiguiller sur une solution.

Re: [..] Reprise d'une boucle While 1 .... WEnd  

Posté : mar. 27 nov. 2018 14:48
par walkson
Bonjour,
Comme ça ?

Code : Tout sélectionner

Local $i = 0
While 1
	If _IsPressed("1B") then
		ExitLoop
	EndIf
	$i += 1
	Local $ligne = FileReadLine($hFile, $i)
	If @error Then $i = 0
	Ici : affichage de la ligne avec temps d'attente 
WEnd

Re: [..] Reprise d'une boucle While 1 .... WEnd

Posté : mar. 27 nov. 2018 17:12
par GMH
Votre solution marche parfaitement. Je vous remercie beaucoup pour votre réponse rapide et efficace.