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 modifier le chemin mémorisé d'un fichier d'une archive. L'archive est déjà ouverte et contient plusieurs fichiers archivés. Le chemin mémorisé des fichiers comprend uniquement le nom et l'extension du fichier. Le fichier dont le chemin doit être modifié 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 "Modifier le chemin d'un fichier"
// Déclaration et initialisation des variables
NomArchive est une chaîne = "MonArchive"
CodeErreurChangeChemin est un entier
IndiceFichier est un entier
// Sélection du fichier de l'archive
IndiceFichier = TableSelect ( TableArchive )

// Modification du chemin du fichier sélectionné
CodeErreurChangeChemin = zipChangeChemin ( NomArchive , ...
                         IndiceFichier , "Sauvegarde.doc" )

// Affichage du message d'erreur si la modification du chemin n'a pas été effectuée
SI CodeErreurChangeChemin <> 0 ALORS
    Erreur ( zipMsgErreur ( CodeErreurChangeChemin ))
FIN


Le code suivant permet de modifier le chemin mémorisé d'un fichier d'une archive. L'archive est déjà ouverte et contient plusieurs fichiers archivés. Le chemin mémorisé des fichiers comprend uniquement le nom et l'extension du fichier. Le fichier dont le chemin doit être modifié est sélectionné suivant son chemin mémorisé.



--Code de clic du bouton "Modifier le chemin d'un fichier"
// Déclaration et initialisation des variables
NomArchive est une chaîne = "MonArchive"
CodeErreurChangeChemin est un entier

// Modification du chemin du fichier "CompteRendu.doc"
CodeErreurChangeChemin = zipChangeChemin ( NomArchive , ...
                          "CompteRendu.doc" , "Sauvegarde.doc" )

// Affichage du message d'erreur si la modification du chemin n'a pas été effectuée
SI CodeErreurChangeChemin <> 0 ALORS
    Erreur ( zipMsgErreur ( CodeErreurChangeChemin ))
FIN