|
|
|
|
|
|
|
|
|
|
- Fonctionnement
- Cas particulier
Etiquette "FIN :" En anglais : "END :"
L'étiquette FIN : permet de définir un code qui sera exécuté systématiquement à la fin de l'exécution d'un traitement. Ce code sera exécuté même si la sortie du traitement est réalisée avec le mot-clé RETOUR ou le mot-clé RENVOYER (sauf dans le cas d'un traitement d'exception provoqué par la fonction ExceptionDéclenche). PROCÉDURE CompareContenu(Fic1, Fic2)
Â
// Ouvre les fichiers
nFic1 est un entier = fOuvre(Fic1, foLecture)
nFic2 est un entier = fOuvre(Fic2, foLecture)
Â
// En cas d'erreur d'ouverture, renvoie -3
SI nFic1 = -1 OU nFic2 = -1 ALORS RENVOYER -3
Â
// Lit la première ligne de chaque fichier
sLigne1 est une chaîne = fLitLigne(nFic1)
sLigne2 est une chaîne = fLitLigne(nFic2)
nLigne est un entier = 1
Â
BOUCLE
// Si les deux lignes sont vides, c'est la fin des deux fichiers
// Renvoie 0
SI sLigne1 = EOT _ET_ sLigne2 = EOT ALORS RENVOYER 0
Â
// Si fin du fichier 1, le fichier 1 est plus court
// renvoie -1
SI sLigne1 = EOT ALORS RENVOYER -1
Â
// Si fin du fichier 2, le fichier 2 est plus court
// renvoie -2
SI sLigne2 = EOT ALORS RENVOYER - 2
Â
// Si les lignes sont différentes, renvoie le numéro de la ligne différente
SI sLigne1 <> sLigne2 ALORS RENVOYER nLigne
Â
// Passe à la ligne suivante
sLigne1 = fLitLigne(nFic1)
sLigne2 = fLitLigne(nFic2)
nLigne++
FIN
Â
FIN:
// Ferme les fichiers
fFerme(nFic1)
fFerme(nFic2)
Syntaxe
// Code principal
...
SI ...ALORS
...
RENVOYER 0
FIN
...
SI ...ALORS
...
RENVOYER 1
FIN
RENVOYER 2
// Instructions exécutées dans tous les cas
// en fin d'exécution du traitement
FIN :
...
Remarques La valeur à renvoyer est mémorisée, puis le code suivant l'étiquette "FIN:" est exécuté. La valeur est renvoyée réellement à la fin de l'exécution du code suivant l'instruction "FIN:" Remarque : L'étiquette FIN: est également exécutée après la gestion automatique des erreurs si celle-ci est activée (avec les mots-clé "CAS ERREUR:" et "CAS EXCEPTION:").
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|