Re: how to read a file into a array???

[Dale Stanbrough <dstanbro@bigpond.net.au>]

devine@linuxmail.org (devine) wrote:

> This is what I have so far:
> WITH Ada.Text_IO;
> WITH Ada.Integer_Text_IO;
> PROCEDURE Test IS
>   
>   FileName : String(1..80);  
>   MaxName : CONSTANT Positive := 80;
>   SUBTYPE NameRange IS Positive RANGE 1..MaxName;
>   Length   : NameRange; 
>   InFile   : Ada.Text_IO.File_Type;
>   y: integer;     
>   Max : CONSTANT Integer := 999999;
>   SUBTYPE Size IS Integer RANGE 0..Max;
>   TYPE TestArray IS ARRAY (Size) OF Character;
>   X : TestArray;
>   
>   BEGIN
> 
>   Ada.Text_IO.Put (Item => "Enter the name of the file > ");
>   Ada.Text_IO.Get_Line(Item => FileName, Last => Length);
>   Ada.Text_IO.New_Line;
>   Ada.Text_IO.Open(File => InFile, Mode => Ada.Text_IO.In_File, Name
> => FileName(1..Length));
>   
>   Y:=0;
>   LOOP  
>   EXIT WHEN Ada.Text_IO.End_Of_File(InFile); 
>   Y:=Y+1;   
>   Ada.Text_IO.Get(File => InFile, Item => X(Y));
>   Ada.Text_IO.New_Line;         
>   END LOOP;
>   
>    Ada.Integer_Text_IO.Put(y);


Using Mike Feldman's text book?
I wonder who set this assignment...

There is no magic that Ada will provide you to solve
this problem. You have to figure out how to store a word,
or how to know where a word starts and ends. 
You should be able to draw a picture of how your data will
be structured, and be able to explain it to someone
coherently before you start coding.

Then you have to transfer that idea into code.

Dale