Re: Re-write a file in Ada

[AdaMagica <christ-usch.grein@t-online.de>]

Am Montag, 18. Januar 2016 01:22:22 UTC+1 schrieb comicf...@gmail.com:
> 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 .

How about giving an upper bound of 1000 or 10_000 lines? This should be enough for most cases.

> 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 : Natural := 0 ;  -- last filled line

    Type T_Tableau is array (1 .. 10_000) of unbounded_string ;
    -- size with upper limit to the number of lines in the file.

    case_of_array : T_Tableau ;  -- now a definite type
> 
> 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 ;