pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet d'afficher des informations sur un fichier d'une archive. Le fichier dont les informations sont affichées est sélectionné dans une table mémoire (TableArchive). Attention : Pour que l'indice de la table mémoire corresponde à l'indice du fichier sélectionné, la table mémoire ne doit pas être triée.



// Déclaration et initialisation des variables
NomRépertoire est une chaîne
NomArchive est une chaîne = "MonArchive"
CodeErreurCréation est un entier
CodeErreurAjout est un entier
InfoFichier est une chaîne
IndiceFichier est un entier

// Création d'une archive

CodeErreurCréation
= zipCrée ( NomArchive , "C:\Répertoire\Archives\ArchivePdf.wdz" )


SI CodeErreurCréation = 0 ALORS

   // Sélection du répertoire
   NomRépertoire = fRepSélecteur ( "" , "" , "Répertoire à ajouter" )
   // Ajoute la totalité des fichiers du répertoire sélectionné
   // et de ses sous-répertoires dans l'archive
    CodeErreurAjout = zipAjouteRépertoire ( NomArchive , NomRépertoire , Vrai , zipRépertoire )
    SI CodeErreurAjout = 0 ALORS
        // Sélection du fichier de l'archive
        IndiceFichier = TableSelect ( TableArchive )
        // Renvoie des informations du fichier sélectionné
        InfoFichier = zipInfoFichier ( NomArchive , IndiceFichier )
        // Affichage des informations
        SI InfoFichier <> "" ALORS
           Info ( "Les informations du fichier sont : " + InfoFichier )
        FIN
   SINON
     // Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
     Erreur ( ZipMsgErreur ( CodeErreurAjout ))
  FIN
SINON
   // Affichage du message d'erreur si l'archive n'a pas été créée
   Erreur ( ZipMsgErreur ( CodeErreurCréation ))
FIN


Le code suivant permet d'afficher des informations sur un fichier d'une archive. Le fichier dont les informations sont affichées est sélectionné suivant son chemin mémorisé. Les informations du fichier sont intégrées dans une table mémoire (TableInfo).



// Déclaration et initialisation des variables
NomArchive est une chaîne = "MonArchive"
NomRépertoire est une chaîne
CodeErreurCréation est un entier
CodeErreurAjout est un entier
InfoFichier est une chaîne

// Création d'une archive
CodeErreurCréation = zipCrée ( NomArchive , "C:\Répertoire\Archives\ArchivePdf.wdz" )

SI
CodeErreurCréation = 0 ALORS
   // Sélection du répertoire
   NomRépertoire = fRepSélecteur ( "" , "" , "Répertoire à ajouter" )
   // Ajoute la totalité des fichiers du répertoire sélectionné
   // et de ses sous-répertoires dans l'archive
   CodeErreurAjout = zipAjouteRépertoire ( NomArchive , NomRépertoire , Vrai , zipRépertoire )
   SI CodeErreurAjout = 0 ALORS
     // Renvoie des informations d'un fichier
     InfoFichier = zipInfoFichier ( NomArchive , "C:\Documents\Fichier.txt " )
     SI InfoFichier <> "" ALORS
        TableAjoute ( TableInfo , InfoFichier )
     FIN
   SINON
     // Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
     Erreur ( ZipMsgErreur ( CodeErreurAjout ))
   FIN
SINON
   // Affichage du message d'erreur si l'archive n'a pas été créée
   Erreur ( ZipMsgErreur ( CodeErreurCréation ))
FIN