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 rechercher un fichier dans une archive. La recherche est générique : le chemin des fichiers trouvés contient "Temp". Chaque fichier trouvé s'affichera dans une table. Le nombre de fichiers dont le chemin contient le mot "Temp" est compté.


// Déclaration et initialisation des variables
 NomArchive est une chaîne = "MonArchive"
 FichierRech est une chaîne = "Temp"
 ListeFichier est une chaîne
 ExtraitFichier est une chaîne
 ResFichierTrouvé est un entier = 1
 NbFichier est un entier
 Indice est un entier = 1
 Compteur est un entier = 0
// Liste des fichiers de l'archive
 ListeFichier = zipListeFichier ( NomArchive )
// Nombre de fichiers contenus dans l'archive
 NbFichier = zipNbFichier ( NomArchive )
POUR Indice à NbFichier
    // Recherche du fichier dans une archive (recherche générique)
   ResFichierTrouvé = zipChercheFichier ( NomArchive , FichierRech , Faux )
    // Extraction du chemin du fichier trouvé
   ExtraitFichier = ExtraitChaîne ( ListeFichier , ResFichierTrouvé , RC)
    // Affichage du fichier trouvé dans une table
   TableAjoute ( "TableFichier" , ExtraitFichier )
    // Comptage du nombre de fichiers dont le chemin contient "Temp"
   Compteur = Compteur + 1
 FIN
// Affichage du nombre de fichiers dont le chemin contient "Temp"
 Info ( "Nombre de fichiers dont le chemin contient Temp : " , Compteur )


Le code suivant permet de rechercher un fichier de type ".DOC" dans une archive. Chaque fichier trouvé s'affichera dans une table mémoire (nommée "TableArchive").


// Déclaration et initialisation des variables
 NomArchive est une chaîne = "MonArchive"
 FichierRech est une chaîne = ".DOC"
ListeFichier est une chaîne
 ExtraitFichier est une chaîne
 ResFichierTrouvé est un entier = 1
NbFichier est un entier
 Indice est un entier = 1
// Liste des fichiers de l'archive
 ListeFichier = zipListeFichier ( NomArchive )
// Nombre de fichiers contenus dans l'archive
 NbFichier = zipNbFichier ( NomArchive )
POUR Indice à NbFichier
    // Recherche du fichier dans une archive (recherche générique)
    ResFichierTrouvé = zipChercheFichier ( NomArchive , FichierRech , Faux )
    SI zipExtraitChemin ( NomArchive , ResFichierTrouvé , zipExtension ) = ".DOC" ALORS
        // Extraction du chemin du fichier trouvé
       ExtraitFichier = ExtraitChaîne ( ListeFichier , ResFichierTrouvé , RC)
        // Affichage du fichier trouvé dans une table
       TableAjoute ( "TableArchive" , ExtraitFichier )
    FIN
FIN