OpenEuphoria

Re: find/match not working

• Posted by don cole <doncole at pacbell.net> Aug 17, 2004
• 452 views

I re-thought this.

integer a
 sequence newlist,found
  newlist={}
  found={}
 for loop=1 to length(urllist) do
   a=find(urllist[loop],found))
   if a=0 then
      found=append(found,urllist[loop])  
    -- newlist=append(newlist,urllist[loop])--you don't really need newlist
                                            --unless you are going to alter
   end if                                   --urllist[loop] before you add 
 end for                                    --it to your sequence.
 urllist=found
--now your list is free of duplicates--

for loop=1 to length(urllist) do
   if find(junk,urllist[loop]) then
     exit
   end if
end for
  urllist=urlist & {junk}

don cole
SF