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 de supprimer un fichier d'une archive. Le fichier à supprimer 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
CodeErreurSup est un entier
IndiceFichier est un entier

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

// Création d'une archive (WinDev Mobile)
CodeErreurCréation = zipCrée(NomArchive, "\Répertoire\Archives\ArchivePdf.zip")


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 )
       // Suppression du fichier sélectionné
       CodeErreurSup = zipSupprimeFichier ( NomArchive , IndiceFichier )
      SI CodeErreurSup <> 0 ALORS
         Erreur ( zipMsgErreur ( CodeErreurSup ))
      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


L e code suivant permet de supprimer un fichier d'une archive. Le fichier à supprimer est sélectionné suivant son chemin mémorisé.



// 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
CodeErreurSup est un entier

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

// Création d'une archive pour WinDev Mobile
CodeErreurCréation = zipCrée(NomArchive, "\Répertoire\Archives\ArchivePdf.zip")

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
      // Suppression d'un fichier
      CodeErreurSup = zipSupprimeFichier ( NomArchive , " Répertoire\Fichier.txt " )
      SI CodeErreurSup <> 0 ALORS
         Erreur ( zipMsgErreur ( CodeErreurSup ))
      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