Re: Performance and faster idioms

[Charles Yeomans <yeomans at desuetude dot com>]

On Feb 28, 2005, at 3:50 PM, Ronald Vogelaar wrote:

> Here's a nice one.
>
> I have created a global function which I use in stead of CountFields:
>
> FastCountFields(txt as string, txtsep as string) as integer
> Dim i, j as integer
> i=0
> j=instrb(txt,txtsep)
> while j>0
>  i=i+1
>  j=instrb(j+1,txt,txtsep)
> wend
> Return i
> End Function
>
>
> On OSX I found it on average to be about 25% faster than CountFields, 
> on Windows(XP) however, it is on average 300% faster.
Try testing it when txt and txtSep have different encodings.

Charles Yeomans

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>