[R] un petit script de màj ... qui marche pas.

[GhostLine]

Dans ma folle lancée, je continue à scripter ^^ cette fois-ci, je pense avoir un problème lié à l'utilisation des array, mais je n'arrive pas à comprendre en quoi je me trompe ... si une âme charitable pouvait me dépanner

► Afficher le texte

Code : Tout sélectionner

#include <FTP.au3>
$server = '127.0.0.1'
$username = '****'
$pass = '****'
local $line[10]
$i=0
local $line1[10]
$j=0

; On récupère le fichier version.txt
$Hand = _FTPOpen('')
_FTPConnect($Hand, $server, $username, $pass)
if @error then msgbox(0,"Erreur","ERREUR FTP n°1")
_FTPGetFile($Hand, 'version.txt', 'c:\windows\system32\programme\update\version.txt')
_FTPClose($Hand)

; On le compare à la version courante sur le système
$lecture_original = Fileopen ("c:\windows\system32\programme\version.txt",0)
$lecture_FTP = Fileopen ("c:\windows\system32\programme\update\version.txt",0)

; Si le fichier n'existe pas, on ecrase la totalité
;If $lecture_original = -1 Then
;   MsgBox(0, "Error", "Unable to open file.")
;endif

While 1
    $i=$i+1
    $line[$i] = FileReadLine($lecture_original)
    If @error = -1 Then ExitLoop
Wend

While 1
    $j=$j+1
    $line1[$j] = FileReadLine($lecture_FTP)
    If @error = -1 Then ExitLoop
Wend
;MsgBox(0, "",$line[1])
;Msgbox(0,"",$line[2])

if $line[1]=$line1[1] Then
    $version_programme="ok"
Else
    $version_programme="ko"
EndIf

if $line[2]=$line1[2] Then
    $version_tableau="ok"
    Else
    $version_tableau="ko"
EndIf
FileClose($lecture_original)
FileClose($lecture_FTP)

$Hand = _FTPOpen('')
_FTPConnect($Hand, $server, $username, $pass)
if @error then msgbox(0,"Erreur","ERREUR FTP n°1")
; Si la version du programme diffère, on recopie le programme
if $version_programme="ko" Then
    _FTPGetFile($Hand,'planning.exe','c:\windows\system32\programme\update\planning.exe')
EndIf
; Si la version du tableau diffère, on recopie le tableau
if $version_tableau="ko" Then
    _FTPGetFile($Hand,'planning_original.ods','c:\windows\system32\programme\update\planning.exe')
EndIf
_FTPClose($Hand)
 

Sinon, comment puis je faire pour minimiser le "découpage" de mes lignes de version ? une ligne du fichier de version ressemble à ça :
tableau_original.ods=1.10

Edit : plutôt que de débiter du code illisible et faux au km, voilà comment je vois la chose :
1- on récupère la ligne et on la stocke (déjà fait)
2- on récupère tout ce qui est à droite du = (1.10 dans mon exemple)
3- on récupère les valeurs de part et d'autre du . (1 et 10)

Après, c'est tout facile de comparer avec un autre n° de version : en premier, on regarde si le chiffre de gauche est supérieur, puis le chiffre de droite si égalité.

PS : je sais qu'il y a un script de vérification de version qui a été mis à disposition sur ce forum, mais 1/ il est complètement incompréhensible pour un néophyte comme moi 2/ c'est quand même plus marrant de faire les choses par soit même ^^

Merci d'avance pour le coup de main ^^

[jumby]

► Afficher le texte

#include <FTP.au3>
$server = '127.0.0.1'
$username = '****'
$pass = '****'
local $line[10]
$i=0
local $line1[10]
$j=0

; On récupère le fichier version.txt
$Hand = _FTPOpen('')
_FTPConnect($Hand, $server, $username, $pass)
if @error then msgbox(0,"Erreur","ERREUR FTP n°1")
_FTPGetFile($Hand, 'version.txt', 'c:\windows\system32\programme\update\version.txt')
_FTPClose($Hand)

; On le compare à la version courante sur le système
$lecture_original = Fileopen ("c:\windows\system32\programme\version.txt",0)
$lecture_FTP = Fileopen ("c:\windows\system32\programme\update\version.txt",0)

; Si le fichier n'existe pas, on ecrase la totalité
;If $lecture_original = -1 Then
; MsgBox(0, "Error", "Unable to open file.")
;endif

While 1
$i=$i+1
$line[$i] = FileReadLine($lecture_original)
If @error = -1 Then ExitLoop
Wend

While 1
$j=$j+1
$line1[$j] = FileReadLine($lecture_FTP)
If @error = -1 Then ExitLoop
Wend
$numbercharoriginal = StringLen($line[1])
for $testcharequal = 1 to $numbercharoriginal
$testreadequal = StringMid($line[1], $testcharequal, 1)
if $testreadequal = '=' Then
for $testcharpoint = $testcharequal to $numbercharoriginal
$testreadpoint = StringMid($line[1], $testcharpoint, 1)
if $testreadpoint = '.' Then
$readversion_original = StringMid($line[1], $testcharequal +1, $testcharpoint - $testcharequal - 1)
$readsousversion_original = StringMid($line[1], $testcharpoint + 1, $numbercharoriginal - $testcharpoint)
MsgBox(0, 'Version et sous version original :', '$readversion_original = '&$readversion_original&' $readsousversion_original = '&$readsousversion_original)
EndIf
Next
EndIf
Next


$numbercharoriginal = StringLen($line1[1])
for $testcharequal = 1 to $numbercharoriginal
$testreadequal = StringMid($line1[1], $testcharequal, 1)
if $testreadequal = '=' Then
for $testcharpoint = $testcharequal to $numbercharoriginal
$testreadpoint = StringMid($line1[1], $testcharpoint, 1)
if $testreadpoint = '.' Then
$readversion_ftp = StringMid($line1[1], $testcharequal +1, $testcharpoint - $testcharequal - 1)
$readsousversion_ftp = StringMid($line1[1], $testcharpoint + 1, $numbercharoriginal - $testcharpoint)
MsgBox(0, 'Version et sous version ftp :', '$readversion_ftp = '&$readversion_ftp&' $readsousversion_ftp = '&$readsousversion_ftp)
EndIf
Next
EndIf
Next


if $line[1]=$line1[1] Then
$version_programme="ok"
Else
$version_programme="ko"
EndIf

if $line[2]=$line1[2] Then
$version_tableau="ok"
Else
$version_tableau="ko"
EndIf
FileClose($lecture_original)
FileClose($lecture_FTP)

$Hand = _FTPOpen('')
_FTPConnect($Hand, $server, $username, $pass)
if @error then msgbox(0,"Erreur","ERREUR FTP n°1")
; Si la version du programme diffère, on recopie le programme
if $version_programme="ko" Then
_FTPGetFile($Hand,'planning.exe','c:\windows\system32\programme\update\planning.exe')
EndIf
; Si la version du tableau diffère, on recopie le tableau
if $version_tableau="ko" Then
_FTPGetFile($Hand,'planning_original.ods','c:\windows\system32\programme\update\planning.exe')
EndIf
_FTPClose($Hand)

[GhostLine]

Merci de ton aide rapide !

Lorsque je tente de le compiler ici, j'ai le message

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\Administrateur\Mes documents\testftp.au3"
C:\Documents and Settings\Administrateur\Mes documents\testftp.au3 (28) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$line[$i] = FileReadLine($lecture_original)
^ ERROR
>Exit code: 1 Time: 0.312

[jumby]

As-tu laissé les 2 lignes suivantes au début de ton script ?

Code : Tout sélectionner

local $line1[10]
local $line[10]
 

Je n'ai pas d'erreur pour ma part.

[GhostLine]

Oui, c'est bizarre ... ça fonctionne sur mon PC du boulot, mais pas le perso ... encore une bonne raison de ne pas ramener du travail à la maison

Edit : en fait, ça me le fait au bout d'un certain nombre de tests, comme si $line[] et $line1[] ne se vidaient pas à la fin du programme ...

[ani]

les pc 1 et 2 sont tout deux du même système, même pack ?

Que correspond line[10] ?

les doubles whiles je vous ai déjà dit que çà ne servait à rien.
AU lieu de local mettez plutôt global ensuite toute variables déclaré indiqué les en dim.

pas suivit non plus les divers indices $i & $j qui se font rajouter + 1

N'ayant pas de ftp, il me sera impossible de tester la partie connect.
Pour l'envoi du fichier faudrai le penser autrement.

Pour les fichiers a comparer, hm vaut voir le tout
elle ne dispose que de deux lignes ?

Pour vérifier indique des consolewrite ou crée un fichier log.

là je fait pas avancer le chmilblik

[GhostLine]

J'ai rien compriiiiiiis

[jumby]

Avez-vous l'erreur suivante :
'Array variable has incorrect number of subscripts or subscript dimension range exceeded.:' ?

Si c'est le cas, le problème est au niveau de la boucle While, le sortie de boucle ne ce fait pas donc vos array sont supérieurs à 9. Ce qui est contraire à ce que vous aviez annoncé au début du script par : Local $Line[10] et Local $Line1[10].

Vos fichiers concernant les numéros de version, ont-ils plusieurs lignes ?
La suite du code est fonctionnel, ce qui laisse à pensé que vos fichiers n'ont qu'une seule et unique ligne. Dans ce cas, essayez avec le code suivant :

► Afficher le texte

#include <FTP.au3>
$server = '127.0.0.1'
$username = '****'
$pass = '****'
local $line[10]
$i=0
local $line1[10]
$j=0

; On récupère le fichier version.txt
$Hand = _FTPOpen('')
_FTPConnect($Hand, $server, $username, $pass)
if @error then msgbox(0,"Erreur","ERREUR FTP n°1")
_FTPGetFile($Hand, 'version.txt', 'c:\windows\system32\programme\update\version.txt')
_FTPClose($Hand)

; On le compare à la version courante sur le système
$lecture_original = Fileopen ("c:\windows\system32\programme\version.txt",0)
$lecture_FTP = Fileopen ("c:\windows\system32\programme\update\version.txt",0)

; Si le fichier n'existe pas, on ecrase la totalité
;If $lecture_original = -1 Then
; MsgBox(0, "Error", "Unable to open file.")
;endif



$line[1] = FileReadLine($lecture_original, 1)
$line1[1] = FileReadLine($lecture_FTP, 1)



$numbercharoriginal = StringLen($line[1])
for $testcharequal = 1 to $numbercharoriginal
$testreadequal = StringMid($line[1], $testcharequal, 1)
if $testreadequal = '=' Then
for $testcharpoint = $testcharequal to $numbercharoriginal
$testreadpoint = StringMid($line[1], $testcharpoint, 1)
if $testreadpoint = '.' Then
$readversion_original = StringMid($line[1], $testcharequal +1, $testcharpoint - $testcharequal - 1)
$readsousversion_original = StringMid($line[1], $testcharpoint + 1, $numbercharoriginal - $testcharpoint)
MsgBox(0, 'Version et sous version original :', '$readversion_original = '&$readversion_original&' $readsousversion_original = '&$readsousversion_original)
EndIf
Next
EndIf
Next


$numbercharoriginal = StringLen($line1[1])
for $testcharequal = 1 to $numbercharoriginal
$testreadequal = StringMid($line1[1], $testcharequal, 1)
if $testreadequal = '=' Then
for $testcharpoint = $testcharequal to $numbercharoriginal
$testreadpoint = StringMid($line1[1], $testcharpoint, 1)
if $testreadpoint = '.' Then
$readversion_ftp = StringMid($line1[1], $testcharequal +1, $testcharpoint - $testcharequal - 1)
$readsousversion_ftp = StringMid($line1[1], $testcharpoint + 1, $numbercharoriginal - $testcharpoint)
MsgBox(0, 'Version et sous version ftp :', '$readversion_ftp = '&$readversion_ftp&' $readsousversion_ftp = '&$readsousversion_ftp)
EndIf
Next
EndIf
Next


if $line[1]=$line1[1] Then
$version_programme="ok"
Else
$version_programme="ko"
EndIf

if $line[2]=$line1[2] Then
$version_tableau="ok"
Else
$version_tableau="ko"
EndIf
FileClose($lecture_original)
FileClose($lecture_FTP)

$Hand = _FTPOpen('')
_FTPConnect($Hand, $server, $username, $pass)
if @error then msgbox(0,"Erreur","ERREUR FTP n°1")
; Si la version du programme diffère, on recopie le programme
if $version_programme="ko" Then
_FTPGetFile($Hand,'planning.exe','c:\windows\system32\programme\update\planning.exe')
EndIf
; Si la version du tableau diffère, on recopie le tableau
if $version_tableau="ko" Then
_FTPGetFile($Hand,'planning_original.ods','c:\windows\system32\programme\update\planning.exe')
EndIf
_FTPClose($Hand)

[GhostLine]

jumby> actuellement, le fichier de version n'a que deux lignes, comme le suggère le code. Je n'ai pas prévu de "pousser" plus loin le nombre de fichiers à vérifier.
Votre code est par ailleurs complètement fonctionnel, il me donne les bonnes valeurs pour les deux fichiers.

ani> alors, de ce que j'ai compris
- oui, mon PC perso et mon PC de boulot sont tous deux sur XP Pro, SP3.
- $line[10] correspond à l'origine de mon script à un tableau contenant les n° de version des deux fichiers présents sur le système (pour une raison nébuleuse, je n'ai jamais réussi à faire fonctionner le programme avec $line[2] ...) ; $line1[10], quant à lui, contient les n° de version des deux fichiers présents sur le serveur FTP. Suite à comparaison, si les valeurs étaient différentes, je récupérais systématiquement les fichiers du FTP.
- je plaide non coupable pour les while, je n'utilise pas cette fonction ^^
- merci pour le conseil (de local vers global avec les dim), je vais zieuter ça.
- les $i et $j servent à la fois à déterminer la ligne que l'on lit dans le fichier de version et la position dans $line[].
- pour le FTP, je me suis installé très rapidement Filezilla Server, très léger et pratique pour faire des tests (et accessoirement, ça fonctionne ^^).

Edit !

J'ai pas mal avancé pour trouver une solution à ce problème d'exécution ; j'ai même trouvé une "solution" qui rend mon code plus clair (que demande le peuple). J'intègre proprement le code de jumby et je partage

[GhostLine]

Bon, j'ai décidé d'arrêter de faire ma forte tête, histoire que le projet avance (mine de rien, c'est une vraie demande professionnelle :p). Voilà ce que ça donne :

► Afficher le texte

Code : Tout sélectionner

#include <FTP.au3>
#include <Array.au3>
$server = '127.0.0.1'
$username = '****'
$pass = '****'
$i=1
$chemin=@HomeDrive&"\windows\system32\programme\"
Local $line[1]

; On récupère le fichier version.txt
$Hand = _FTPOpen('')
_FTPConnect($Hand, $server, $username, $pass)
if @error then msgbox(0,"Erreur","ERREUR FTP n°1")
_FTPGetFile($Hand, 'version.txt', $chemin&'update\version.txt')

$lecture_original = Fileopen ($chemin&"version.txt",0)
$lecture_FTP = Fileopen ($chemin&"update\version.txt",0)

; Si le fichier n'existe pas, on ecrase la totalité des fichiers
If $lecture_original = -1 Then
    _FTPGetFile($Hand, 'planning.exe', $chemin&'planning.exe')
    _FTPGetFile($Hand, 'planning_original.ods', $chemin&'planning_original.ods')
    FileCopy($chemin&"update\version.txt", $chemin&"version.txt",1)
    $lecture_original = Fileopen ($chemin&"version.txt",0)
endif

_FTPClose($Hand)

; On stocke dans une table le contenu des fichiers de version
While FileReadLine($lecture_original,$i)<>""
    _ArrayAdd($line, (FileReadLine($lecture_original,$i)))
    _ArrayAdd($line, (FileReadLine($lecture_FTP,$i)))
    $i=$i+1
Wend

; On compare les versions des fichiers
$version_programme=StringCompare($line[1],$line[2])
$version_tableau=StringCompare($line[3],$line[4])

$Hand = _FTPOpen('')
    _FTPConnect($Hand, $server, $username, $pass)
if @error then msgbox(0,"Erreur","ERREUR FTP n°1")

; Si la version du programme est inférieure, on recopie le programme
if $version_programme=-1 Then
    _FTPGetFile($Hand,'planning.exe',$chemin&'planning.exe')
EndIf

; Si la version du tableau est inférieure, on recopie le tableau
if $version_tableau=-1 Then
    _FTPGetFile($Hand,'planning_original.ods',$chemin&'planning_original.ods')
EndIf

_FTPClose($Hand)

Si quelqu'un voit des pistes d'amélioration, je suis preneur, cela dit