AutoIt Français

Code : Tout sélectionner

#include <Array.au3>
$nom = @ScriptDir & "\texte.txt"


Dim $Events[1000][10]
_chargerEvenements()
Func _chargerEvenements()
   $file = FileOpen($nom,0)
   
   $i=0
   $j = 0

   $err = 0
   While $err=0
      $i+=1                                 ;$i=1
      $ligne = StringSplit(FileReadLine($file,$i) ,",")      ;$ligne=2008,10,1,17,53,ok
       For $j = 1 to $ligne[0]
        
        $Events[$i][$j] = $ligne[$j];Je veux : $Event[1][1]=2008 $Event[1][2]=10
        
      
      Next
      
      
      $err=@error                           ;$Event[1][3]=1 $Event[1][4]=17
  WEnd

_ArrayDisplay($Events,"")
;$Event[1][5]=53 $Event[1][6]="ok"
EndFunc

Code : Tout sélectionner

#Include <Array.au3>


$dim_max=1000
$dim_second_max=6
Dim $Event[$dim_max][$dim_second_max]


$nom="toto.txt"
Exit chargerEvenements()

Func chargerEvenements()
   Local $tab_interm,$ind_local
   $file = FileOpen($nom,0)
   If $file=-1 Then Return 0 ; <==== Hardening au niveau de l'ouverture + un retours code erreur ça fait pas de mal
   $i=0
   While $i<$dim_max ;<== condition portant suer la dim max du tableau
     ; $i+=1  <=====================  NON, un tableau commence à 0 pas 1
      $ligne = FileReadLine($file)       
      if @error = -1 Then ExitLoop ;<==== si fin de fichier on sort
      ConsoleWrite($ligne&@CRLF)
      $tab_interm= StringSplit($ligne,",")
      If $tab_interm[0]<> $dim_second_max Then 
        $i+=1 
        ContinueLoop ;<===== erreur de formatage de la ligne, ici je décide de continuer via la suivante, mais la décision est arbitraire
      EndIf
      For $ind_local=0 to $dim_second_max-1
        $Event[$i][$ind_local] =  $tab_interm[$ind_local+1]  ;<=== attention il y a un décalage d'un indice entre les 2 tableaux du à la composante de taille retournée en 0 par Stringsplit 
      Next
      $i+=1                              
      
  WEnd
 _ArrayDisplay($Event)  
  FileClose($file) ;<==== toujours penser à fermer un handle d'ouverture de fichier                                        

  Return 1 ;<== retours OK
EndFunc