Searching a file

[ans4]

I want to search a file for the first word on each line but it only works for the first line so if I search for the first word on other lines, it won't work. Can anyone help me? Here's a part of the code I have.

code:

var x : string get x var counter : int := 0 var data : string open : stream, "myText.txt", get loop     exit when eof (stream)     counter += 1     get : stream, data     entry (counter).a := data     get : stream, data     entry (counter).b := data     get : stream, data     entry (counter).c := data     get : stream, data     entry (counter).d := data end loop close : stream var search := x for i : 1 .. counter     if entry (i).name = search then         locate (10, 30)         put "A: ", entry (i).a         locate (11, 30)         put "B: ", entry (i).b         locate (12, 30)         put "C: ", entry (i).c         locate (13, 30)         put "D: ", entry (i).d         exit     end if end for

[DIIST]

Here is an example, but it just displayed the first word of each line on the screen. Hope its helpful .

Turing:

var stream : int var variable : string := "" open : stream, "file.txt", get loop     exit when eof (stream)     get : stream, variable       %Gets the First Word     put variable     get : stream, variable :*    %reads the rest of the line end loop