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 regrouper les sous-archives d'une archive multi-parties. La fonction zipEstMulti permet de vérifier que l'archive est une archive multi-parties.



// Déclaration et initialisation des variables
CodeErreurOuvre est un entier
CodeErreurRegroupe est un entier
EstMulti est un booléen

// Ouverture d'une archive
CodeErreurOuvre = zipOuvre ( "MonArchive" , "A:\MonArchive.WDZ" )

SI
CodeErreurOuvre = 0 ALORS
   // L'archive est-elle multi-parties ?
   EstMulti = zipEstMulti ( "MonArchive" )
   // Regroupement de l'archive
   CodeErreurRegroupe = zipRegroupe ( "MonArchive" , ...
         "C:\MesArchives\ArchiveMulti.WDZ" )
   // Message d'erreur si les sous-archives n'ont pas été regroupées
   SI CodeErreurRegroupe <> 0 ALORS
      Erreur ( ZipMsgErreur ( CodeErreurRegroupe
))
   FIN
SINON
   Erreur ( ZipMsgErreur ( CodeErreurOuvre
))
FIN


Le code suivant permet de regrouper les sous-archives d'une archive multi-parties. La fonction zipEstMulti permet de vérifier que l'archive est une archive multi-parties.



// Déclaration et initialisation des variables
CodeErreurOuvre est un entier
CodeErreurRegroupe est un entier
EstMulti est un booléen

// Ouverture d'une archive
CodeErreurOuvre = zipOuvre ( "MonArchive" , "\Sauvegarde.zip" )

SI
CodeErreurOuvre = 0 ALORS
   // L'archive est-elle multi-parties ?
   EstMulti = zipEstMulti ( "MonArchive" )
   // Regroupement de l'archive
   CodeErreurRegroupe = zipRegroupe ( "MonArchive" , ...
        "\MesArchives\ArchiveMulti.zip" )
   // Message d'erreur si les sous-archives n'ont pas été regroupées
   SI CodeErreurRegroupe <> 0 ALORS
      Erreur ( ZipMsgErreur ( CodeErreurRegroupe
))
   FIN
SINON
   Erreur ( ZipMsgErreur ( CodeErreurOuvre
))
FIN