Affichage d'un fichier texte

**GreatDeveloperOnizuka** · 22/04/2009, 10h09

Bonjour, je fais actuellement de l'ADA sur le shell de cygwin et je cherche à afficher le contenu d'un fichier texte. Mon programme compile mais seulement la première ligne de mon fichier texte est lu. De plus, mon programme ne se termine pas... donc j'imagine qu'il doit y avoir un problème avec ma boucle. Ou est-ce que ça vient de cygwin

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
with Ada.Text_io; use Ada.Text_io;
procedure exemple is
	fichier:File_type;
	car : Character;
	begin
		open (fichier,in_file, "texte.txt");
		while not end_of_file( fichier ) loop
			while not end_of_line( fichier ) loop
				get(fichier,car);
				put(car);
			end loop;
			skip_line;
		end loop;
		close(fichier);
end exemple;

**PRomu@ld** · 22/04/2009, 18h33

Ton problème vient du skip_line, remplaces-le par un skip_line( fichier ). Tu ne vidais pas le buffer du fichier mais le buffer d'entrée standard.

**GreatDeveloperOnizuka** · 22/04/2009, 20h00

hum ça doit être cygwin qui marche mal alors car en mettant skip_line(fichier), il me raise une erreur ADA.IO_Exceptions.END_ERROR.

après m'avoir affiché mon fichier n'importe comment

.
contenu fichier txt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
c'est un fichier pour tester
dssdd
 
dsq

Et dans la console ça m'affiche "dsqdd un fichier pour tester" suivie du raised ADA.IO.

**PRomu@ld** · 22/04/2009, 20h03

Cette erreur n'est pas due à cygwin mais au formatage de ton fichier. Il manque un retour à la ligne avant la fin du fichier. Et donc tu rencontres une fin de fichier avant d'avoir rencontrer une fin de ligne ce qui pose problème.

**GreatDeveloperOnizuka** · 22/04/2009, 20h26

Merci je n'ai plus cette erreur mais la lecture du fichier est toujours pas bonne car c'est toujours "dsqdd un fichier pour tester" qui est affiché.

**PRomu@ld** · 22/04/2009, 20h41

C'est normal, mais ça mérite sans doute une explication.

La fin des lignes dans un fichier texte est dépendante du système d'exploitation.

-> Sur Windows, c'est CR LF. C'est à dire un retour au début de la ligne suivi d'un passage à la ligne suivante (c'est ce qui se passe avec une vieille machine à écrire).
-> Sur Linux/Unix (et mac depuis OSX), c'est LF.
-> Sur Mac (avant OSX) c'est CR.

Lorsque tu fais appel à end_of_line, ce que tu détectes, c'est LF.

Tu travailles sur windows, donc ton fichier utilise surement la fin de fichier CR LF. Donc lorsque tu lis la première ligne tu obtiens :

c'est un fichier pour tester

Maintenant la fin de ligne arrive, tu lis donc CR, ça n'est pas end_of_line donc on affiche le symbole ce qui a pour effet de revenir au debut de la ligne. Ensuite tu lis LF ce qui est end_of_line donc on passe à la ligne suivante et tu lis ta ligne :

dssdd

Tu affiches donc cette ligne, or tu l'affiches au début de la ligne précédente, ce qui a pour effet d'obtenir la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dssdd un fichier pour tester

Et ainsi de suite, ce qui explique la lecture bizarre mais tout à fait correcte.

Si tu veux éviter le problème, tu peux tester la valeur du caractère que tu lis avant de l'afficher. Si tu tombes sur Character'Val(13) (ie: CR) alors tu n'affiches pas le caractère.