UpsSys.ComparerFichiersTextes


Fonction Habilitation Optimiser(PasDEffetDeBord) ComparerFichiersTextes(NomFichier1 : Nul Ou Caractere, NomFichier2 : Nul Ou Caractere,
   EnvoyerMessage : Nul Ou Procedure (NumeroFichier : Entier, NumeroLigne : Entier, LigneDifferente : Caractere)=Nul) Retourner Booleen;

Description

La procédure ComparerFichiersTextes permet de comparer les deux fichiers textes de noms respectifs NomFichier1 et NomFichier2. La comparaison a lieu ligne après ligne.

Si les contenus des fichiers sont identiques alors la réponse à l'appel est Vrai.

Si NomFichier1 est Nul ou si NomFichier2 est Nul alors la réponse est Faux.

Le paramètre EnvoyerMessage est une procédure permettant de récupérer les différences entre les contenus des fichiers. Voici ses paramètres :

NumeroFichier.
Numero du fichier i.e. 1 ou 2.
NumeroLigne.
Numero de la ligne différente.
LigneDifférente.
Contenu de la ligne différente.

Exemple


/****************************************************************/

Procedure EnvoyerMessage(NumeroFichier : Entier, NumeroLigne : Entier, LigneDifferente : Caractere)

/* Objet : Envoie le message a l'ecran. */

/****************************************************************/

Debut

Si NumeroFichier==1 Alors

   Ecran.Ecrire(Caractere(NumeroLigne)+" << "+LigneDifferente);

Sinon

   Ecran.Ecrire(Caractere(NumeroLigne)+" >> "+LigneDifferente);

Fin Si

Fin Procedure



Principal

/*******/

Debut

Si ComparerFichiersBinaires("/tmp/upsoms110.cpp", "/tmp/upsoms120.cpp") Alors

   Ecran.Ecrire("Identique binaire");

Sinon

   Ecran.Ecrire("Different binaire");

Fin Si

Si ComparerFichiersTextes("/tmp/upsoms110.cpp", "/tmp/upsoms120.cpp", EnvoyerMessage) Alors

   Ecran.Ecrire("Identique texte");

Sinon

   Ecran.Ecrire("Different texte");

Fin Si

Fin Principal

Voir aussi

ComparerFichiersBinaires pour comparer des fichiers binaires.

Traduction


-	-	-	-	-	-	-	-	-