Beginner Need help !

Beginner Need help !

[Andr�]

Hello Ada programers,

A beginner need help !
I want to write (in text mode) at the end of a file.

I tought using Text_IO.Open(...) with an existing file opened in
OUT_FILE mode, the result of the following code should append to
the file ...
But in fact, the original file is replaced with the new one !

What is wrong with this code ???

Thank you (excuse my english expression),
Andr� Baril  <bbp_abar@gig.net>


With Text_IO;
Procedure FileTest IS
Package IO_INT IS NEW Text_IO.Integer_IO(Num => Integer);

File_A : Text_IO.File_Type;
Line   : String(1..6) := "Line :";
Number : Natural;

Begin
   -- In this exemple the file, "b:\file_a.txt" should exit ...
   Text_IO.Open(File_A, Text_IO.Out_File, "b:\File_A.txt");

   FOR i IN 1..10 LOOP
      Text_IO.Put(File_A, Line);
      IO_INT.Put(File_A, i, 4);
      Text_IO.New_Line(File_A);
   END LOOP;

   Text_IO.Close(File_A);
End FileTest;

Re: Beginner Need help !

[Joerg Rodemann]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 482 bytes --]

Hello!

Andr� (bbp_abar@gig.net) wrote:
> Hello Ada programers,

> A beginner need help !
> I want to write (in text mode) at the end of a file.

> I tought using Text_IO.Open(...) with an existing file opened in
> OUT_FILE mode, the result of the following code should append to
> the file ...
> But in fact, the original file is replaced with the new one !

Sure as is requested by the standard. Replace Out_File by Append_File and
everthing should be ok.

Greetings

George

Re: Beginner Need help !

[Michael Levasseur]

I'm not sure but I think the file needs to be opened with the
file mode "in out" and then goto the EOF then perform a write.

Re: Beginner Need help !

[Ledru#m#_Pascal]

Just use the mode Append_File (which does not exist in Ada83 by the 
way!)

with Text_IO;
procedure TestFile2 is
  package IO_Int is new Text_IO.Integer_IO( Num => Integer);
  use IO_Int;
  File_A : Text_IO.FILE_TYPE;
begin
  -- we assume the file always exists here!
  Text_IO.Open
    ( File => File_A,
      Mode => Text_IO.Append_File,
      Name => "File_A" );

  for I in 1 .. 10 loop
    Text_IO.Put(File_A, "Line : ");
    IO_Int.Put( File_A, i, 4);
    Text_IO.New_Line(File_A);
  end loop;

  Text_IO.Close( File_A );
end;