PROGRAM CHARGER_LISTE_OP_CSV
VAR
    Hfile: DWORD;
    //Adresse du fichier avec la liste des noms d'opérateurs
    FilePathAndName: STRING;
    //Caractère de fin de ligne et retour chariot
    CRLF: STRING(2):='$R$N';
    //Fonction ouvrir le fichier
    fopen : FILE.Open;
    //Fonction lire le fichier
    fread: FILE.Read;
    //Fonction fermer le fichier
    fclose: file.Close;
    //Fonction obtenir la taille du fichier en bytes
    fgetsize: FILE.GetSize;
    //Contenu du fichier limité à 255 butes ou caractères
    sFileString:    STRING(255):='';
    //Numéro action en cours: 1=ouvrir csv , 2=taille du fichier, 5= lire csv, 9=Lecture réussit: transfert du tampon vers la table, 10= fermer le fichier
    Num_Etape: INT;
    //Extraction des noms en cours
    En_Cours: BOOL;
    //Liste des nom d'opérateur
    Liste_Op_Buffer: ARRAY [1..50] OF STRING(40);
    //Longueur de la chaine de caractères récupérée dans le CSV
    Longueur_Chaine: INT;
    //Longueur du nom extrait
    Longueur_Nom: INT;
    //Position du caractère ";"
    Position_separateur: INT;
    //Numéro dans la table du nom de l'opérateur
    Ligne_Tab_Op: INT;
    //Taille du CSV en bytes déterminé par fonction fgetsize
    Taille_Csv: CAA.SIZE;
    //Nombre maxi de nom dans la liste
    Maxi_Liste: INT;
    //Nombre de butes lu par fonction fread
    fread_szSize: CAA.SIZE;
END_VAR


(*Charger la liste des nom d'opérateurs*)

(*PARAMETRES*)
FilePathAndName:= '/home/partage_pi/operateurs.csv';
Maxi_Liste:=50;


(*FONCTIONS*)
//Fonction ouverture CSV
fopen(
xExecute:= (Num_Etape=1),
xDone=> ,
xBusy=> ,
xError=> ,
sFileName:= FilePathAndName,
eFileMode:= FILE.MODE.MREAD,
xExclusive:= ,
eError=> ,
hFile=> );

//Fonction déterminer la taille du csv
fgetsize(
xExecute:= (Num_Etape=2),
xDone=> ,
xBusy=> ,
xError=> ,
sFileName:= FilePathAndName,
eError=> ,
szSize=> );

//Fonction lecture CSV
fread(
xExecute:= (Num_Etape=5),
xAbort:= FALSE ,
udiTimeOut:=100000,
xDone=> ,
xBusy=> ,
xError=> ,
xAborted=>,
hFile:=hFile,
pBuffer:=ADR(sFileString),
szBuffer:=Taille_Csv,
eError=> ,
szSize=> fread_szSize,);


//Fonction fermeture CSV
fclose(
xExecute:= (Num_Etape=10),
xDone=> ,
xBusy=> ,
xError=> ,
hFile:= Hfile,
eError=> );


(*GESTION*)
IF GVL.CHARGER_LISTE_OP=TRUE THEN
    //Init
    IF En_cours=FALSE THEN
        //Effacer la table tampon
        FOR Ligne_Tab_Op:=1 TO Maxi_Liste DO
            Liste_Op_Buffer[Ligne_Tab_Op] := '';
        END_FOR
        Num_Etape:=1;
        sFileString:='';
        Ligne_Tab_Op:=1;
        fread_szSize:=0;
        Taille_Csv:=0;
        Hfile:=0;
        fopen.xExecute:=FALSE;
        fgetsize.xExecute:=FALSE;
        fread.xExecute:=FALSE;

        En_Cours:=TRUE;

    END_IF

    CASE Num_Etape OF
        0:
            En_Cours:=FALSE;
            GVL.CHARGER_LISTE_OP:=FALSE;

        1: (*Ouvrir le fichier*)
            IF fopen.xDone THEN
                Hfile:=fopen.hFile;
                Num_Etape:=2;
            END_IF
            //Erreur
            IF fopen.xError AND fopen.eError <> 5104 THEN
                Num_Etape:=10;
            END_IF
            //Le fichier n'existe pas
            IF fopen.eError = 5104 THEN
                Num_Etape:=10;
            END_IF


        2: (*Taille du fichier fichier*)
            IF fgetsize.xDone THEN
                Taille_Csv:=fgetsize.szSize;
                Num_Etape:=5;
            END_IF
            //Erreur
            IF fgetsize.xError THEN
                Num_Etape:=10;
            END_IF


        5:(*Lire 255 bytes*)
            IF fread.xDone THEN
                Longueur_Chaine :=  LEN( sFileString );

                IF Longueur_Chaine<>0 THEN

                    WHILE sFileString<>'' DO


                        //Chercher le retour à la ligne
                        Position_separateur := FIND( sFileString, CRLF );

                        //Récupérer le nom contenu avant le retour à la ligne et le stocker dans la table tampon
                        IF Position_separateur > 1 THEN
                            Liste_Op_Buffer[Ligne_Tab_Op] := LEFT( sFileString, Position_separateur-1);
                        ELSE
                            Liste_Op_Buffer[Ligne_Tab_Op] := sFileString;
                            sFileString:='';
                        END_IF
                            Longueur_Nom := LEN(Liste_Op_Buffer[Ligne_Tab_Op]);

                        //Enlever le nom extrait de la chaine de caractère
                        sFileString:=  DELETE( sFileString , Position_separateur + 1 , 1 );
                        Longueur_Chaine :=  LEN( sFileString );

                        Ligne_Tab_Op:=Ligne_Tab_Op+1;

                    END_WHILE

                END_IF  
                Num_Etape:=9;   
            END_IF

            IF fread.xError THEN
                Num_Etape:=10;
            END_IF


        9:(*Lecture fichier réussit: transfert de la table tampon dans la table des noms d'opérateurs*)
            FOR Ligne_Tab_Op:=1 TO Maxi_Liste DO
                GVL.LISTE_OPERATEURS[Ligne_Tab_Op] := Liste_Op_Buffer[Ligne_Tab_Op];
            END_FOR
            Num_Etape:=10;

        10:(* Fermer le fichier *)
            fclose( xExecute:=TRUE);
            IF fclose.xError THEN
                ;           
            END_IF
            IF  fclose.xDone THEN
                Num_Etape:=0;
            END_IF



    END_CASE

ELSE

    En_cours:=FALSE;
    Num_Etape:=0;


END_IF