Re: Re-write a file in Ada

[comicfanzine@gmail.com]

I tried with a array but the program crash .

============================================
with Ada.Text_IO.Unbounded_IO ;	use Ada.Text_IO.Unbounded_IO ;
with Ada.Strings.Unbounded ;	use Ada.Strings.Unbounded ;
with Ada.Text_IO ;				use Ada.Text_IO ;

Procedure main is

  this_file : File_Type ;

  next_line : Positive_Count := 1 ;

  Type T_Tableau is array(1..1_000) of unbounded_string ;

  phrases : T_Tableau ;


Begin

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


   loop
		exit when End_Of_File ( this_file ) ;

	  Set_Line ( this_file , next_line );

        if next_line > 1 then

            for i in 1 .. 1_000 loop
                phrases(i) := get_line ( this_file ) ;
            end loop ;

        end if ;

      next_line := next_line + 1 ;

   end loop ;

    Close ( this_file ) ;

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

    for i in 1..1_000 loop
      put ( this_file , phrases(i) ) ;
   end loop ;


     Close ( this_file ) ;

end main ;