AW: AW: AW: Lines, items, repeat loops, > not always what you think

[Thomas Fischer]

Hi Ken,

> This one is slightly faster, but is less lines:
> 
> function delimCount tStr,tDel
>   replace tDel with CR in tStr
>   return the number of lines of (tStr & null)
> end delimCount

But it will not give the desired results if there are line breaks to begin with, you need the line
> if tChar <> CR then replace CR with "" in tStr
here as well.

As Jim pointed out, I don't need to bother with saving the itemDelimiter (old HyperCard habit),
and using your hint, it can be boiled down to

function delimCount strr, del
	set the itemDelimiter to del
	return the number of items in (strr & null)
end delimCount

> Also note that a modified form of this can be used to count any number of
> characters in a string:
> 
> function charCount tStr,tChar
>   if tChar <> CR then replace CR with "" in tStr
>   replace tChar with CR in tStr
>   return the number of lines of (tStr & null)
> end charCount

I tried the different options with the Change_Log_2.6.1.txt file, and there the double replacement is slower by a factor of 10.

All the best
Thomas


--
Thomas Fischer
Salzburg