Re: Re-write a file in Ada

[comicfanzine@gmail.com]

Hi ,

 björn lundin .

First , I want to copy every line in a file , in a array of unbounded_Strings , to work on them later .

The problem is that i don't want to give a specific
range at initializing .

In fact , it size must be known according to the number of lines in the file .


I changed several times the code .
I tried for instance , to determine how many lines a file have by using set_line until the end of the file , but it failed . 

Here the code simplified to be clear :

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 : integer := 1 ;

  Type T_Tableau is array( Integer range <> ) of unbounded_string ;
  -- size according to the number of lines in the file .

  case_of_array : T_Tableau ;

Begin

    Open
     (File => this_file ,
      Mode => In_file ,
      Name => "main.adb");

   loop exit when End_Of_File ( this_file ) ;

    case_of_array( Last_case ) := Get_Line( this_file );
    
     Last_case := Last_case + 1 ;
   end loop ;    
End main ;