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 calcule la taille d'un fichier d'une archive avant de l'extraire. Si l'utilisateur confirme l'extraction du fichier, le fichier est extrait.

Dans cet exemple, nous considérons que l'archive est déjà ouverte et que le fichier (dont la taille est demandée) 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.



--Code de clic du bouton BtnExtractionFichier
// Déclaration et initialisation des variables
IndiceFichier est un entier
TailleFichier est un entier
CodeErreurExtrait est un entier
NomArchive est une chaîne = "MonArchive"

// Sélection du fichier de l'archive
IndiceFichier = TableSelect ( TableArchive )

// Taille originale du fichier
TailleFichier = zipTailleFichier ( NomArchive , IndiceFichier )

// Extraction du fichier sélectionné
SI OuiNon ( "Ce fichier occupera : " + TailleFichier +, ...
           "Voulez-vous extraire ce fichier ?" ) ALORS
    // Extraction du fichier
    CodeErreurExtrait = zipExtraitFichier ( NomArchive , IndiceFichier )
    // Affichage du message d'erreur si le fichier n'a pas été extrait
    SI CodeErreurExtrait <> 0 ALORS
       Erreur ( zipMsgErreur ( CodeErreurExtrait ))
    FIN
FIN


Le code suivant calcule la taille d'un fichier d'une archive avant de l'extraire.

Dans cet exemple, nous considérons que l'archive est déjà ouverte et le fichier (dont la taille est demandée) est sélectionné suivant son chemin mémorisé.



--Code de clic du bouton BtnExtractionFichier

// Déclaration et initialisation des variables
TailleFichier est un entier
CodeErreurExtrait
est un entier
NomArchive
est une chaîne = "MonArchive"

// Taille originale du fichier
TailleFichier = zipTailleFichier ( NomArchive , "Fichiers\Fichier.txt" )

// Extraction du fichier sélectionné
SI OuiNon ( "Le fichier Fichier.txt occupera : " + TailleFichier +, ...
     "Voulez-vous extraire ce fichier ?" ) ALORS
    // Extraction du fichier
    CodeErreurExtrait = zipExtraitFichier ( NomArchive , "Fichiers\Fichier.txt" )
    // Affichage du message d'erreur si le fichier n'a pas été extrait
    SI CodeErreurExtrait <> 0 ALORS
       Erreur ( zipMsgErreur ( CodeErreurExtrait ))
    FIN
FIN