Re: Ada String Issue: String within Strings

[Ted Dennison<dennison@telepath.com>]

In article <rSNR6.592$v4.18766@www.newsranger.com>, Ted Dennison says...
>Ada.Text_IO.Get_Line (f_From, LineItem, Index);
>while (not Ada.Text_IO.End_Of_File(f_From)) loop
>Found := 0;
>Found := Ada.Strings.Fixed.Index (LineItem(1..Index), Catch);
>if Found > 0 then
>Ada.Text_IO.Put_Line(f_To, LineItem(1..Index));
>end if;
>end loop;	

Yikes! Please ignore my lack of formatting. That was my posting software
speaking, not me.

To answer your other question: yes, you do seem to be going about this the right
way. The only other "peer review" comment I would make is:

The two assignments into "Found" (and thus the "Found" variable itself) are
unnessecary. You could remove them both and change the if statement to:

if Ada.Strings.Fixed.Index (LineItem(1..Index), Catch) > 0 then

Some might leave in the second assignment, but the first is completely unneeded.

Also, it appears that you are not reading from the file within the loop. That
means that the file pointer will not advance, and thus you will never reach the
end of the file (unless the very first read gets you there), and thus the loop
will iterate endlessly.

Also, if the first read *does* read the only line in the file, the contents of
what it read will never be checked.

---
T.E.D.    homepage   - http://www.telepath.com/dennison/Ted/TED.html
          home email - mailto:dennison@telepath.com