Affichage d'un fichier texte [Résolu]

Affichage d'un fichier texte [Résolu] - Ada - Programmation

Marsh Posté le 22-04-2009 à 18:10:28    

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


Message édité par alpachinois le 22-04-2009 à 22:30:45
Reply

Marsh Posté le 22-04-2009 à 18:10:28   

Reply

Marsh Posté le 22-04-2009 à 21:22:36    

Qu'est-ce qui consomme ta fin de ligne?

Message cité 1 fois
Reply

Marsh Posté le 22-04-2009 à 22:28:47    

Un Programmeur a écrit :

Qu'est-ce qui consomme ta fin de ligne?


 
C'est bon j'ai réussi à résoudre le problème. Ça venait d'abord de skip_line c'était skip_line(fichier) et ensuite j'ai rajouté un caractère retour à la ligne character'val(10).
 
Merci comme même.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed