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 comparer le contenu de deux fichiers.



// Déclaration des variables
FichierComparé1 est une chaîne
FichierComparé2 est une chaîne
ResComparaison est un entier
// Sélection du premier fichier à comparer
FichierComparé1 = "C:\Répertoires\FichierA.doc"
// Sélection du second fichier à comparer
FichierComparé2 = "C:\Répertoires\FichierB.doc"
// Comparaison des deux fichiers
ResComparaison = fCompare (FichierComparé1, FichierComparé2)
// Affichage du résultat
SELON ResComparaison
   CAS 0 : Info("Les deux fichiers sont identiques")
   CAS 1 : Info("Les deux fichiers sont différents")
   CAS -1 : Info("Le premier fichier n'a pas été trouvé")
   CAS -2 : Info("Le second fichier n'a pas été trouvé")
   CAS -3 : Erreur(ErreurInfo( errMESSAGE ))
FIN


Le code suivant permet de comparer le contenu de deux fichiers.



// Déclaration des variables
FichierComparé1 est une chaîne = "\Mes Fichiers\Fichier1.TXT"
FichierComparé2 est une chaîne = "\Mes Fichiers\Fichier2.TXT"
ResComparaison est un entier
// Comparaison des deux fichiers
ResComparaison = fCompare (FichierComparé1, FichierComparé2)
// Affichage du résultat
SELON ResComparaison
   CAS 0 : Info("Les deux fichiers sont identiques")
   CAS 1 : Info("Les deux fichiers sont différents")
   CAS -1 : Info("Le premier fichier n'a pas été trouvé")
   CAS -2 : Info("Le second fichier n'a pas été trouvé")
   CAS -3 : Erreur(ErreurInfo( errMESSAGE ))
FIN