Re: Reading a text file

[Mathias Dolidon <matd@netcourrier.com>]

stiletto@ryuji.net a �crit :
> 
> Hello All!
> 
> How can I read text file?  Following program is supposed to read a text
> file and print out the contents of the file, but I got following error
> messages.
> 
> Thanks in advance
> 
> test.adb:13:01: "Read" is not visible
> test.adb:13:01: non-visible (private) declaration at a-textio.ads:348
> test.adb:13:01: non-visible declaration at a-stream.ads:58
> gnatmake: "test.adb" compilation error
> 
> with Ada.Text_IO;
> use Ada.Text_IO;
> 
> procedure test is
> Data_File : File_Type;
> Result_File : File_Type;
> St : String(1..100);
> begin
> 
> Open(Data_File, In_File, "infile");
> 
> while not End_Of_File(Data_File) loop
>   Read(Data_File, St);
>   Put_Line(St);
> end loop;
> 
> end test;

Instead of "Read(Data_File, St)" write "Get_Line(Data_File, St)".

There's also another way to detecte the EOF :

--------
begin
loop
Get_Line(Data_File, St);
Put_Line(St);
end loop;

exception
  when end_error => close(Data_File);
end;
----------

Bye,
Mathias

-- 
http://www.mdlabs.ovh.org