OpenEuphoria

Re: stumped by match()

• Posted by Ray & Debbie Smith <smithr at IX.NET.AU> Sep 03, 2000
• 620 views

Hi Jim,

Not being an expert I'll try my best ...

...from the doco

 Syntax:      i = match(s1, s2)

 Description: Try to match s1 against some slice of s2. If successful,
return
              the element number of s2 where the (first) matching slice
begins,
              else return 0.

Your sequence of "line"

 line = {"ABCDE.TXT"," 123.456","  345.567","   44444.555","
END-OF-LINE","Euphoria"}

 is a sequence of sequences, after reading the doco I "think" you can only
match a single
sequence s1 against a single sequence s2.

When reading from a file using "gets" it reads one line of a file into a
single sequence so your "line" above would be a single
sequence so the match should be able to match the slice.

Hope this helps

Ray Smith




> --------------------------------------------------------------------------
---------
> include get.e
> include file.e
> include wildcard.e
>
> allow_break(1)
> with trace
>
> sequence seq
> integer  char,FoundSpaceAt,FoundTextAt, true, false,i,e,finally,fn
> atom     adam
> object
>              line2,TestString
>
> true  = 1
> false = 0
> string1 = {"  "}
> string2 = {"OF-LIN"}
> string3 = ","
> string4 = "END-OF"
> string5 = {32}
> string6 = {32,32}
> string7 = {34,36}
> finally = false
>
>
> line = {"ABCDE.TXT"," 123.456","  345.567","   44444.555","
END-OF-LINE","Euphoria"}
>
> trace(1)
>
>    FoundSpaceAt = match(string1,line)               -- doesn't work,
returns 0
>    FoundTextAt = match(string2,line)                -- doesn't work,
returns 0
>    FoundTextAt = match(string3,line)                -- doesn't work,
returns 0
>    FoundSpaceAt = match(string4,line)               -- doesn't work,
returns 0
>    FoundTextAt = match(string5,line)                -- doesn't work,
returns 0
>
>    FoundSpaceAt = match(string6,line)               -- doesn't work,
returns 0
>    FoundTextAt = match(string7,line)                -- doesn't work,
returns 0
>
>    if match("Euphoria", line) then
>       FoundTextAt = match("Euphoria", line)         -- doesn't work,
returns 0
>    end if
>
>     i = match("Euphoria",line)                                -- nope,
returns 0
>
> --------------------------------
> -- try reading it from a file
> --------------------------------
>
> fn = open("test.prt","rb")
> if fn = -1   then
>    puts(1,"Open failed")
> end if
> TextFile = fn
>
> line2 = gets(TextFile)                                    -- identical
data to 'line', above
>
> if atom(line2)   then
>    close(TextFile)
> end if
>
> if match("Euphoria", line2) then             -- read from file - works,
Why?
>    finally = true
> end if
>
> if match("  ", line2) then
>    FoundSpaceAt = match("  ", line2)         -- read from file - works,
Why?
> end if
>
> TestString = "Euphoria"
> if match(TestString, line2) then
>    FoundTextAt = match(TestString, line2)    -- read from file - works,
Why?
> end if
>
> abort(1)
> --------------------------------------------------------------------------
----------------------------------
>
> Appreciate any and all offers of help.
>
> Thanks,
>
> Dumbfounded  (maybe just dumb??)
>
> Jim