[LG][FAQ]comparer des fichiers

Salut à tous g un petit probleme pour comparer deux fichiers contenant des chaines de caracteres. Lorsqu'il y a une différence au milieu du fichier, tous la suite se decale on a donc toute la suite qui est différente, voici mon code, j'espere que vous pourrez me dire ce qu'il faut modifier pour pouvoir afficher juste le morceau différent

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

assign(f1,'fichier1.txt'); reset(f1); assign(f2,'fichier2.txt');(**le fichier 2 est le nouveau fichier**) reset(f2);   repeat readln(f1,s1); readln(f2,s2); if s1 = s2 then begin end else begin writeln (s2); end; until eof(f2);

---

merci d'avance

Salut !

Pour une question de performances, il est préférable de comparer tes fichiers en deux fois :

1. Chercher dans le fichier 1 toutes les lignes qui n'existent pas dans le fichier 2 : il s'agit donc de lignes supprimées ou bien modifiées;
2. En passant les lignes que tu viens de trouver, chercher dans le fichier 2 toutes les lignes qui n'existent pas dans le fichier 1 : il s'agit donc de nouvelles lignes.

Pour terminer, deux petites remarques à propos de ton extrait de code :

1. N'oublie pas de fermer tes deux fichiers (Close);

2. Pour tester la fin de fichier, il est préférable d'utiliser une boucle While not EOF(f) do plutôt que Repeat ... Until EOF(f).
Car un fichier peut être vide !

Bonne prog !

En fait il n'y a que le fichier2 qui va changé et il n'y aura que des ajouts
merci

Tu nous dit que seul le fichier 2 va être modifié par ajout de lignes ? Je pense dans ce cas qu'il te suffit de ne lire une ligne dans le fichier 1 qu'au besoin.

Un peu comme ça :

Code:

---

1 2 3 4 5 6 7 8 9

while not Eof(f1) and not Eof(f2) do begin ReadLn(f1, L1); repeat ReadLn(f2, L2); if L1 <> L2 then WriteLn(L2); until (L1 = L2) or Eof(f2); end;

---

Je pense que ça devrait faire un truc correct.

A+

Je n'ai que la premiere ligne différentequi apparait avec ton truc mais merci quand meme.

Bonne prog

Comme je ne voyais pas d'erreur dans le code de HDD34, j'ai fait un test: la boucle me paraît correcte.

Le seul bémol se produirait quand la dernière ligne du fichier2 n'est pas dans le fichier1 ? Si tu as le même soucis, en attendant de trouver une explication rationnelle, tu peux mettre ---FIN--- sur la dernière ligne de chacun des fichiers.


Vérifie le contenu des fichiers: crée le fichier1, fais une copie, puis insère plusieurs lignes en différents endroits...

Dans mon test, f1 et f2 sont de type TEXT.

Code:

---

var f1, f2 : text;

---

J'ai mis les deux fichiers en C:\ et utilisé

Code:

---

1 2	assign(f1,'c:\fichier1.txt'); assign(f1,'c:\fichier1.txt');

---

G juste remis le mot --fin-- à la fin de chaque fichier et maintenant ca marche merci beaucoup a tous de m'avoir aider. :D

Reste que je ne comprends pas pourquoi... Manque-t-il un retour chariot ?
Si quelqu'un a la réponse... Merci d'avance.

Ce n'est pas un problème de retour chariot :

si F2 contient une ligne supplémentaire, la boucle s'arrête avant (la condition Until (L1 = L2) est remplie à la dernière ligne de F1 et à l'avant-dernière ligne de F2).
Ensuite, la condition EOF(F1) est vraie et le programme s'arrête sans jamais avoir lu la ligne supplémentaire de F2.

Tandis qu'en ajoutant 'fin' dans les deux fichiers, la dernière ligne de F1 est toujours égale à la dernière ligne de F2 et la boucle s'arrête sans qu'aucune ligne ait été oubliée.

A bientôt !

Merci :lol:

Tu peux aussi trouver un moyen de corriger le bug sans avoir à passer par une astuce peu avouable :wink: ...

Je ne vais pas tout faire non plus ! lol

A+

Effectivement... suite à la réponse d'Alcatîz j'avais trouvé comment éviter la ligne --- FIN --- dans chacun des fichiers :lol:

J'en profite pour te faire part de mon admiration pour ta maîtrise du Pascal, de l'assembleur et du PC dont tu fais bénificier ce forum.