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


Cet exemple permet de ré-indexer un fichier sélectionné dans une liste nommée ListeFichier. La ré-indexation réalisée est une ré-indexation normale.



FichierARéindexer est une chaîne
// Initialisation avec l'élément en cours dans la liste
FichierARéindexer = ListeFichier[ListeFichier]

SI OuiNon("Confirmez-vous la réindexation du fichier ?") ALORS
    // Initialiser le sablier
    Sablier()
    // Rendre la jauge visible
    Jauge1..Visible = Vrai
    // Réindexer le fichier
    SI HRéindexe (FichierARéindexer, hNdxNormal , "Jauge1") ALORS
        // Réindexation réussie
        // Réafficher la table
        TableAffiche(Table1, taDebut )
        // Désactiver le sablier
        Sablier( Faux )
        Info("La réindexation du fichier " + ...
            FichierARéindexer + " est terminée.")
        // Rendre la jauge invisible
        Jauge1..Visible = Faux
    SINON
        // La réindexation a échoué
        Info("Problème de réindexation du fichier " + FichierARéindexer
    FIN
FIN