OpenEuphoria

Re: Win32Lib MleText selections

• Posted by Michael J. Sabal <m_sabal at yahoo.com> Apr 17, 2006
• 447 views

Oops, I forgot to include the count(x,y) function:

function count(object lookin, object lookfor)

  atom found
  found = 0

  if atom(lookin) and sequence(lookfor) then
    return 0
  elsif atom(lookin) and atom(lookfor) and lookin=lookfor then
    return 1
  elsif atom(lookin) and atom(lookfor) and lookin!=lookfor then
    return 0
  else
    for ctr = 1 to length(lookin) do
      if compare(lookin[ctr],lookfor)=0 then
        found = found + 1
      end if
    end for
    return found
  end if
end function