Re: SEX contributions anyone
MisterX wrote: > Who needs externals! Indeed. Since working with MC I've replaced more than a dozen externals with native MetaTalk, with no regrets -- Richard Gaskin Fourth World Media Corporation Developer of WebMerge: Publish any database on any Web site ___ [EMAIL PROTECTED] http://www.FourthWorld.com Tel: 323-225-3717 AIM: FourthWorldInc ___ metacard mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/metacard
RE: SEX contributions anyone
Ben, You're too fast!!! Who needs externals! cheers Xavier > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Ben Rubinstein > Sent: Thursday, September 04, 2003 19:35 > To: [EMAIL PROTECTED] > Subject: Re: SEX contributions anyone > > > on 4/9/03 6:18 pm, MisterX wrote > > > 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 > > > > wouldn't it be even faster as > > function FilterLines olist,str > filter olist with ("*" & str & "*") > return olist > end FilterLines > > ?! > > Ben Rubinstein | Email: [EMAIL PROTECTED] > Cognitive Applications Ltd | Phone: +44 (0)1273-821600 > http://www.cogapp.com| Fax : +44 (0)1273-728866 > > ___ > metacard mailing list > [EMAIL PROTECTED] > http://lists.runrev.com/mailman/listinfo/metacard > ___ metacard mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/metacard
Re: SEX contributions anyone
on 4/9/03 6:18 pm, MisterX wrote > 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 > wouldn't it be even faster as function FilterLines olist,str filter olist with ("*" & str & "*") return olist end FilterLines ?! Ben Rubinstein | Email: [EMAIL PROTECTED] Cognitive Applications Ltd | Phone: +44 (0)1273-821600 http://www.cogapp.com| Fax : +44 (0)1273-728866 ___ metacard mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/metacard
RE: SEX contributions anyone
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 1 rows... from the XOS Obj Lib > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Pierre Sahores > Sent: Thursday, September 04, 2003 18:25 > To: [EMAIL PROTECTED] > 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 > > [EMAIL PROTECTED] > > http://lists.runrev.com/mailman/listinfo/metacard > > > > ___ > metacard mailing list > [EMAIL PROTECTED] > http://lists.runrev.com/mailman/listinfo/metacard > ___ metacard mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/metacard
Re: SEX contributions anyone
on 4/9/03 5:17 pm, MisterX wrote > Has anyone got a "Fast" remove duplicate lines script? > Best I get is 12ms per line... Any line being a word. If split worked the way I think it should (and still could, quite compatibly - perhaps I'll make in bugzilla a suggestion I made long ago) then doing split/combine would probably do this almost instantaneously. Even without that, I've found Rev/MC's hashed arrays fantastically efficient. Have you tried simply: put empty into aTemp repeat for each line t in tManyLines put true into aTemp[t] end repeat put the keys of aTemp into tFewerLines Of course that will lose the order, but I'd expect it to be very fast. If you want to keep sequence (first appearance) then put empty into tFewerLines put empty into aTemp repeat for each line t in tManyLines if aTemp[t] = empty then put t & return after tFewerLines put true into aTemp[t] end if end repeat should work, albeit a bit more slowly. Ben Rubinstein | Email: [EMAIL PROTECTED] Cognitive Applications Ltd | Phone: +44 (0)1273-821600 http://www.cogapp.com| Fax : +44 (0)1273-728866 ___ metacard mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/metacard
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 > [EMAIL PROTECTED] > http://lists.runrev.com/mailman/listinfo/metacard > ___ metacard mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/metacard