AutoIt Français

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