read file into array to compare

read file into array to compare

[david]

hey,
Absoulte Beginner!! Don't want to give up.

Use array, record, an array of records how?
How to compare array or records (so not to do it one at a time)

trying to read a text file with names and address and postcodes.

I've written; do you want to process file which file to proccess, and
check if file is there, then....

Need to read txt file, (format: 3 lines of text, empty line, 3 lines
of text, empty line and so on)
need to store so to compare
first line upto a ',' and after ',' the rest of line
second line completly
third line completly

Then have to check if BOTH first line upto',' and third line are same.
if they are i've to put the both entries (all 3 lines of each on
screen)

Could someone give me a start please.
a scratchy example would be ideal.

Re: read file into array to compare

[Samuel Tardieu]

>>>>> "David" == david  <davidmcroberts@hotmail.com> writes:

David> How to compare array or records (so not to do it one at a time)

Use "=".

  Sam
-- 
Samuel Tardieu -- sam@rfc1149.net -- http://www.rfc1149.net/sam

Re: read file into array to compare

[Preben Randhol]

On 2004-03-09, david <davidmcroberts@hotmail.com> wrote:
> hey,
> Absoulte Beginner!! Don't want to give up.

Good :-)

http://www.it.bton.ac.uk/staff/je/adacraft/

> Use array, record, an array of records how?

http://www.it.bton.ac.uk/staff/je/adacraft/ch06.htm

> Need to read txt file, (format: 3 lines of text, empty line, 3 lines

http://www.it.bton.ac.uk/staff/je/adacraft/ch07.htm#7.5

-- 
Preben Randhol -------------- http://www.pvv.org/~randhol/Ada95 --
                 �For me, Ada95 puts back the joy in programming.�

Re: read file into array to compare

[Marius Amado Alves]

> Could someone give me a start please.
> a scratchy example would be ideal.

procedure Scratchy_Example is
  type Record is array (1 .. 3) of Unbounded_String;
  A, B : Record;
  No_More_Records : exception;
  procedure Get_Record (X : out Record) is ...
  function Upto_Comma (X : Unbounded_String) return String is ...
  ...
begin
  loop
    Get_Record (A);
    Get_Record (B);
    if Upto_Comma (A (1)) = Upto_Comma (B (1)) and A (3) = B (3) then
      Show_Records;
    end if;
  end loop;
exception
  when No_More_Records => Done;
end;