Problem with sequential files and output

[caldrium]

open : data, "hideandseek.seq", get
assert (data > 0)

originalword := "wonderland"
for yy : 1 .. 2
for xx : 1 .. length(originalword)
%loop
%exit when eof (data)
get : data, word (xx)
if word(yy)(xx) = originalword (xx) then
put word (yy) (xx) ..
else
put "-" ..
end if
%end loop
end for
put ""
end for


this is what i got so far (its a big mess), what im trying to do would be like

ORIGINAL WORD :wonderland (dont need to output this as of now)

WORD: DISPLAY:
wonder wonder----

because wonder is in that way of wonderland, when i get output all i get is wonder "no ----" and this is crutial because i have to output other forms of words in weird orders (example : w---e---n-) can i get some help please?

my sequential file is :
wonder
now
new
lend
landed
wand
wander
wood
zzz

[Tony]

I think index() is a good function to use here. It will tell you if one string is a substring in another, and if so - the position where it first occurs.

[MysticVegeta]

Careful though, index only gives the location of first character. For example : if you go something like this ->

put index("wonderland", "wonder")

Ouput will only be 1.

To separate wonderland it would be something like this ->

put str(index("wonderland", "wonder")..index("wonderland", "wonder) + length("wonder")-1)

Note: I didnt test the code but its pretty straightforward.

Str -> main string = "wonderland"
So, what the program does it retrives the substring "wonder" from it

so its really
put str(1..1+6-1) = "wonder"