Comparaison de fichiers

Ce programme présente la comparaison de fichiers.

Le fichier source est ${UPS_HOME}/upssdk/demo/${UPS_LANGUAGE}/fichier2.upl.

Mode compilé

Commande de compilation


upscmp Source=fichier2.upl

Commande d'exécution


fichier2

Mode interprété


upssng Source=fichier2.upl

Fichier source


Source Composant "Exemple de l'emploi des fichiers" Version 4.0.0;



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

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

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