-----------------------------------

caldrium

Thu Dec 22, 2005 4:52 pm


Problem with sequential files and output

-----------------------------------

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

Fri Dec 23, 2005 12:05 am



-----------------------------------

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

Fri Dec 23, 2005 12:46 pm



-----------------------------------

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"