SEX contributions anyone

[MisterX]

here, adapt this...


function FilterLines olist,str
  local thisline,nulist
  put 1 into thisline
  put "" into nulist
  repeat while thisline > 0
    set cursor to busy
    
    put LineOffset(str,olist) into thisline
    put line thisline of olist & return after nulist
    delete line 1 to thisline of olist
    if olist is empty then exit repeat
    
  end repeat
  return nulist
end FilterLines

just put an "add 1 to counthowmany"
and return that instead of nulist...

it's quite fast even with a table with 10000 rows...

from the XOS Obj Lib

> -----Original Message-----
> From: metacard-admin at lists.runrev.com
> [mailto:metacard-admin at lists.runrev.com]On Behalf Of Pierre Sahores
> Sent: Thursday, September 04, 2003 18:25
> To: metacard at lists.runrev.com
> Subject: Re: SEX contributions anyone
> 
> 
> Le jeu 04/09/2003 à 18:17, MisterX a écrit :
> 
> > 
> > I know Frederic Rinaldi's StripDup but it's Mac Only...
> > Maybe Fred will share his source...
> > 
> I would, for my own, will be really "reconnaissant" to get from Frederic
> a port of its "HowMany" cross-command to the native transcript language
> ;-)
> 
> Bests, Pierre
> > 
> > cheers
> > Xavier
> > _______________________________________________
> > metacard mailing list
> > metacard at lists.runrev.com
> > http://lists.runrev.com/mailman/listinfo/metacard
> > 
> 
> _______________________________________________
> metacard mailing list
> metacard at lists.runrev.com
> http://lists.runrev.com/mailman/listinfo/metacard
>