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.
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
|