Re: Can I Do this – Help Badly Needed.

[austin.obyrne@hotmail.com]

On Friday, June 15, 2012 2:06:12 PM UTC+1, austin...@hotmail.com wrote:
> I want to write to two external files in turn from within the same program:
> 
> This is the first prompt,
> 
>   Ada.Text_IO.Put
>   (Item => " Please enter the name of the unsorted file >");
>   Ada.Text_IO.New_Line(2);
>   Ada.Text_IO.Put
>   (Item => " Call it UnSortedNumberFile_n.dat - for whatever 'n' may be >");
>   Ada.Text_IO.New_Line(2);
>   Ada.Text_IO.Put(Item => " ");
>   Ada.Text_IO.Get_Line(Item => OutFileName,Last => OutNameLength);
>   Ada.Text_IO.New_Line(2);
>   Ada.Text_IO.Create(File => OutData,
>   Mode => Ada.Text_IO.Out_File,Name => OutFileName(1 .. OutNameLength));
> 
>  Name given: UnsortedNumbers_n.dat 
> 
> Later on after some more computation in the same program I want to write out to another external file of a different name and I use the same prompt again that is only only slightly changed in the names.
> 
> Second prompt.
> 
>   Ada.Text_IO.Put
>   (Item => " Please enter the name of the unsorted file >");
>   Ada.Text_IO.New_Line(2);
>   Ada.Text_IO.Put
>   (Item => " Call it SortedNumberFile_n.dat - for whatever 'n' may be >");
>   Ada.Text_IO.New_Line(2);
>   Ada.Text_IO.Put(Item => " ");
>   Ada.Text_IO.Get_Line(Item => OutFileName,Last => OutNameLength);
>   Ada.Text_IO.New_Line(2);
>   Ada.Text_IO.Create(File => OutData,
>   Mode => Ada.Text_IO.Out_File,Name => OutFileName(1 .. OutNameLength)); 
> 
> Name given: SortedNumbers_n.dat 
> 
> Is this allowable?.
> 
> Your help would be greatly appreciated
> 
> -adacrypt