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