Ada

Compter le nombre de lignes d'un fichier .

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Compter le nombre de lignes d'un fichier .

eroge

Le prog suivant compte le nombre de lignes de son fichier .

Il se compile . Pourtant à l'execution on obtient l' erreur :

raised ADA.IO_EXCEPTIONS.END_ERROR : a-textio.adb:1900

Code :

WITH Ada.Text_IO ;              USE Ada.Text_IO ;
WITH Ada.Text_IO.Unbounded_IO ; USE Ada.Text_IO.Unbounded_IO ;
WITH Ada.Strings.Unbounded ;    USE Ada.Strings.Unbounded ;
 
Procedure main is
 
  this_file : File_type ;
 
  Last_case : Positive_Count := 1 ;
 
Begin
 
    Open
     (File => this_file ,
      Mode => In_file ,
      Name => "main.adb" );
 
   loop exit when End_Of_File ( this_file ) ;
     set_line( this_file , Last_case );
 
     Last_case := Last_case + 1 ;
   end loop ;
 
   Close ( this_file );
 
   put ( Positive_Count'image(Last_case));
End main ;

Message édité par eroge le 19-01-2016 à 04:48:47

Publicité

eroge

J'ai modifié le code .

L' erreur disparait avec une exception , pourtant je ne comprends pas pourquoi ça affiche une ligne de trop .

Le résultat a l'execution est : 30 .

Code :

WITH Ada.Text_IO ;              USE Ada.Text_IO ;
WITH Ada.Text_IO.Unbounded_IO ; USE Ada.Text_IO.Unbounded_IO ;
WITH Ada.Strings.Unbounded ;    USE Ada.Strings.Unbounded ;
 
Procedure main is
 
  this_file : File_type ;
 
  Last_case : Positive_Count := 1 ;
 
Begin
 
    Open
     (File => this_file ,
      Mode => In_file ,
      Name => "main.adb" );
 
   loop
     set_line( this_file , Last_case );
 
     Last_case := Last_case + 1 ;
   end loop ;
 
    exception
      when End_Error => Close ( this_file );
 
   put ( Positive_Count'image(Last_case));
 
end main ;

Profil supprimé

Bonjour,
Pour eviter l'erreur peut-être utiliser End_Of_File qui retourne vrai en fin de fichier ce que permet d'arrêter la lecture du fichier.
En suite compter correctement. + 1 à partir de zero me parait une bonne chose.
Aussi fermer le fichier avant le traitement de l'exception.

FORUM HardWare.fr

Programmation

Ada

Compter le nombre de lignes d'un fichier .

Sujets relatifs
Lecture d'un fichier texte	Dézippé un fichier
BATCH, FOR/R rename fichier avec espace dans le nom	Do était innatendu, ou est mon erreur?
[HTA / JAVA] Comment ouvrir un fichier	Un fichier à décoder
[Résolu]Bug du compilateur Gnat ?	Erreur Code:Blocks : ' cannot find ... '
erreur soap InvalidSecurityAn error occurred when verifying security	une erreur l'array , hash-tableau
Plus de sujets relatifs à : Compter le nombre de lignes d'un fichier .

Page générée en 0.043 secondes