Page 1 sur 1
[R] Pas d'incrémentation de FilereadLine dans un do..while
Posté : ven. 27 juil. 2012 20:18
par AutoItUser
Bonjour,
Je rencontre un problème avec un bout de code destiné à tester le retour de requêtes HTTP/HTTPS.
Mon script bloque de manière infinie sur la première ligne du fichier qui contient les URLs à tester. Il ne passe jamais à à la seconde ligne de ce fichier (en fait il se contente de les lire et de les afficher pour le moment, le traitement attendu viendra après).
La structure du des lignes du fichier contenant les url à tester est la suivante : Nom;URL;code de retour attendu. En voici un exemple :
Les diverses variables utilisées dans le bout de code suivant sont valides :
Code : Tout sélectionner
FileOpen($URLFile,0)
do
$LineOfURLFile = FileReadLine($URLFile)
StringInStr($LineOfURLFile, ";")
$PieceOfURL = StringSplit($LineOfURLFile, ";")
MsgBox(0, "yep", $PieceOfURL[1] & " " & $PieceOfURL[2] & " " & $PieceOfURL[3])
Until @error = 1
FileClose($URLFile)
J'ai testé un certain nombre de variations (au départ, j'ai pensé à une boucle infinie) sans succès : seule la première ligne est affichée en boucle, quoi que je fasse.
Je sèches ! Je ne comprends pas pourquoi on ne passe jamais à la seconde ligne.
Merci d'avance.
Re: [..] Pas d'incrémentation de FilereadLine dans un do..wh
Posté : ven. 27 juil. 2012 20:50
par sylvanie
Bonsoir,
c'est normal, vous avez fait une confusion entre le nom de fichier et son handle d’ouverture en lecture :
► Afficher le texte
Code : Tout sélectionner
[color=#0000FF]$hnd=[/color]FileOpen($URLFile,0)
do
$LineOfURLFile = FileReadLine([color=#0000FF]$hnd[/color])
StringInStr($LineOfURLFile, ";")
$PieceOfURL = StringSplit($LineOfURLFile, ";")
MsgBox(0, "yep", $PieceOfURL[1] & " " & $PieceOfURL[2] & " " & $PieceOfURL[3])
Until @error = 1
FileClose([color=#0000FF]$hnd[/color])
là comme il s'agit du handle, l'incrément est implicite. Dans votre mouture, c'est le nom de fichier qui est donné, et là l'incrément doit être explicitement donné et géré via un indice (en plus du fait quele fichier se fait ouvrir et fermer à chaque fois, ce qui n'est pas top). et donc vous lisiez toujours la ligne 1 de par la valeur par défaut
Re: [..] Pas d'incrémentation de FilereadLine dans un do..wh
Posté : sam. 28 juil. 2012 10:19
par mikell
Sans compter que la boucle Do n'est pas très adaptée dans ce cas
En effet avec ton script ou celui de sylvanie on ne sort jamais de la boucle, à cause du test @error qui est mal placé... Il faudrait passer par un "If @error Then" juste sous le FileReadLine, et/ou utiliser un interrupteur
Code : Tout sélectionner
$test = 0
do
$LineOfURLFile = FileReadLine($hnd)
If @error Then $test = 1
If $test = 0 Then MsgBox(0, "yep", $LineOfURLFile)
Until $test = 1
Et on se complique la vie... donc à moins d'avoir une raison particulière d'utiliser le Do, dans ce cas vaut mieux le While
Pourquoi ne pas appliquer l'exemple de l'aide et vouloir changer quelque chose qui marche ?
► Afficher le texte
Code : Tout sélectionner
$file = FileOpen($URLFile, 0)
While 1
$LineOfURLFile = FileReadLine($file )
If @error Then Exitloop
If StringInStr($LineOfURLFile, ";") Then
$PieceOfURL = StringSplit($LineOfURLFile, ";")
MsgBox(0, "yep", $PieceOfURL[1] & " " & $PieceOfURL[2] & " " & $PieceOfURL[3])
EndIf
Wend
FileClose($file)
[R.] Pas d'incrémentation de FilereadLine dans un do..while
Posté : sam. 28 juil. 2012 12:54
par AutoItUser
Bonjour,
Merci pour ces explications claires que je vais intégrer.
Concernant l'utilisation de do..while, elle est la résultante des différents essais infructueux réalisés en fonction des bouts de codes que trouvé sur le net
Re: [R] Pas d'incrémentation de FilereadLine dans un do..whi
Posté : sam. 28 juil. 2012 23:14
par sylvanie
Bien vu, je ne m'étais concentré que sur l'histoire du handle ...
Re: [R] Pas d'incrémentation de FilereadLine dans un do..whi
Posté : dim. 29 juil. 2012 00:02
par mikell
Niarf niarf niarf
miaou
sylvanie a écrit :ouaiiis
Ceci dit c'est courant chez les nains
