UpsSys.ComparerFichiersBinaires


Fonction Habilitation Optimiser(PasDEffetDeBord) ComparerFichiersBinaires(NomFichier1 : Nul Ou Caractere, NomFichier2 : Nul Ou Caractere) Retourner Booleen;

Description

La procédure ComparerFichiersBinaires permet de comparer les deux fichiers binaires de noms respectifs NomFichier1 et NomFichier2. La comparaison a lieu octet après octet.

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.

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

ComparerFichiersTextes pour comparer des fichiers textes.

Traduction


-	-	-	-	-	-	-	-	-