Re-write a file in Ada

[comicfanzine@gmail.com]

Hello everybody ,

Next , a working code which re-write entirely a file .

I would like to modify it , doing the same thing exept that : 

Undounded_strings will be generate every time there is a next line .

Then , several get_line will be done on those strings .

And in final , put those modified strings in the file .


Anyone knows how to code that ?

Here is what i done for now =

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 ;
 
  copy_file_1 : Unbounded_String ;
  copy_file_in_1 : Unbounded_String ;
 
  next_line : Positive_Count := 1 ;
 
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 );
 
     get_line ( this_file , copy_file_in_1 ) ;
 
     Append
     ( Source  => copy_file_1 ,
       New_Item => copy_file_in_1 ) ;
 
      next_line := next_line + 1 ;
 
     end loop ;
 
    Close ( this_file ) ;
 
     Open
     (Mode => Out_file ,
      File => this_file ,
      Name => "main.adb" ) ;
 
     put ( this_file , copy_file_1 ) ;
 
     Close ( this_file ) ;
 
end main ;