[R] Erreur au niveau d'un Array a plusieurs dimensions

[pins38]

Bonjour,

Je voudrais remplir un tableau à partir d'un fichier afin de pouvoir mettre à jour une table MySql, ci après le code pour le remplissage du tableau :

► Afficher le texte

#include <File.au3>
#include <Array.au3>

$File0 = FileOpen ("resultats\repertoires.txt",0)
$NbLignes = (_FileCountLines ("resultats\repertoires.txt")+1)
MsgBox (064, "", "Lignes à traiter : "&$NbLignes)
$Cpt = 0
Dim $tabRep [$NbLignes][4]
If $File0 = -1 Then
MsgBox (016, "Récupération Infos Utilisation Répertoires", "Le fichier Repertoires.txt est introuvable !")
Exit
Else
While 1
$Str = StringSplit (FileReadLine ($File0),";")
$Part = $Str[1]
$Rep = $Str[2]
$Datem = $Str[3]
$Jours = $Str[4]
$tabRep [$Cpt][0] = $Part
$tabRep [$Cpt][1] = $Rep
$tabRep [$Cpt][2] = $Datem
$tabRep [$Cpt][3] = $Jours
$Cpt = $Cpt+1
WEnd
_ArrayDisplay ($tabRep, "Essais")
EndIf

Lorsque j'execute ce code, j'obtiens l'erreur suivante :
essais.au3 (16) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.

Je mets en PJ le fichier de départ Repertoires.txt
Merci pour votre aide.

[pop45]

Je te donne ma reponse a travers une question:
Elle s'arrete quand ta boucle?

► Afficher le texteconseil

Utilise Do....until
Do= faire
until = avant que

► Afficher le textele code avec do...until

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>

$File0 = FileOpen ("repertoires.txt",0)
$NbLignes = (_FileCountLines ("repertoires.txt")+1)
MsgBox (064, "", "Lignes à traiter : "&$NbLignes)
$Cpt = 0
Dim $tabRep [$NbLignes][4]
If $File0 = -1 Then
    MsgBox (016, "Récupération Infos Utilisation Répertoires", "Le fichier Repertoires.txt est introuvable !")
    Exit
Else
    Do
        $Str = StringSplit (FileReadLine ($File0),";")
        ToolTip ($Cpt , 0,0 )
        $Part = $Str[1]
        $Rep = $Str[2]
        $Datem = $Str[3]
        $Jours = $Str[4]
        $tabRep [$Cpt][0] = $Part
        $tabRep [$Cpt][1] = $Rep
        $tabRep [$Cpt][2] = $Datem
        $tabRep [$Cpt][3] = $Jours
        $Cpt = $Cpt+1
    Until $Cpt = $NbLignes -1 
    _ArrayDisplay ($tabRep, "Essais")
EndIf

[pins38]

Merci , Pop45

[Tlem]

@pop45
http://www.autoitscript.fr/forum/viewto ... 896#p24896

[pop45]

tien j'ai oublier les balise :/

Voila c'est réparer