Re: Text Files

["Jean-Pierre Rosen" <rosen.adalog@wanadoo.fr>]

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


Cameron McShane <cazza@aceonline.com.au> a �crit dans le message : 959260098.454638@hearts.q-net.net.au...
> Hey all
>
> Thanks everyone for your comments and help
>
> It seems that I needed a skip_line before the get_line.
>
>     ie
>     Text_io.skip_line;
>     Text_io.get_line(Filename, Last);
>     Text_Io.Create(
>          File => In_Data,
>          Mode => Text_Io.Out_File,
>          Name => Filename(1..Last));
>
> I was sure I had tried this already, but obviously I was mistaken.
>
Wouldn't you, by any chance, be reading an integer value before ? If you do:
-- assuming proper instantiation of Integer_IO
Get (I);
Get_Line (File_Name, Last);

the first Get will leave you in front of the End_Of_Line, and the Get_Line will read an empty string.
In this case, you don't really need a Skip_Line *before the Get_Line*. What you really need is a Skip_Line *after the Get*. Not
exactly the same thing...

--
---------------------------------------------------------
           J-P. Rosen (Rosen.Adalog@wanadoo.fr)
Visit Adalog's web site at http://pro.wanadoo.fr/adalog