Re: How to read records as strings?

[Shark8 <onewingedshark@gmail.com>]

On Sep 29, 3:48 pm, pack2themoon <maxia...@gmail.com> wrote:
> Hi, everyone, I'm a beginner, and I don't have a solid understanding
> of object-oriented programming.
> For a homework, I need to read the following record as strings from a
> file.
> In the next steps, I need to know the "length" of each word to
> facilitate the processing like "reverse", adding numbers...etc.
>
> Can I use the "length" function of bounded-string? how to use generic
> package, can anyone give me the structure of the whole program(like
> where to use, with  package, where to begin..)? Thank you so much!!!
>
> Alice          0001             95      96
> Bob            0002             85      86
> Cathy          0003             75      76
> David          0004             65      66
> Edward         0005             85      86
> Frank          0006             77      78

Well, it's line-delimited so read each one as a string; it will look
something like this (after the appropriate file-opening, type-
definitions, & assuming Ada 2005):
Function Get_Record( File : In File_Type ) Return Record_Type is
Use Ada.Text_IO, Ada.Strings, Ada.Strings.Fixed;
   Line_Value: String:= Trim( Get_Line(File), Both );
   Marker : Positive:= Positive'First;
Begin
  Return R:Record_Type do
   Loop
   -- Read from Marker to the end of the token
   Exit when -- the end of the token is the end of the line
   -- Place Marker at the correct, new position
   End Loop;
  End Return;
End Get_Record;