How to find out how many times a string is in a variable

[hag]

Is there a function that can count the number of times the same string shows up in a variable
for example cVariable := "user1/temp/temp"
I Need to count how many times temp shows up in cVariable.

Thanks for any help.

[ukoenig]

Hello Harvey,

msgalert( hb_tokenCount( "1;2;3;4;", ";" ) -1 ) // Result 4
msgalert( hb_tokenCount( "This is a test", " " ) -1 ) // Result 3
msgalert( hb_tokenCount( "use -1 for result", " " ) -1 ) // Result 3
msgalert( hb_tokenCount( "user1/temp/temp", "temp" ) -1 ) // Result 2

Best Regards
Uwe

[hag]

works great. Thanks for the quick esponse.

[James Bott]

Uwe,

I see the -1. So it really returns one more than the token count? Is this a bug?

Maybe we should create a better function:

function TokenCount( cString, cToken )
return ( hb_tokenCount( cString, cToken) -1 )

James

[hag]

are you saying when it returns 1 it should be 0 and 2 should be 1. The behavior I experenced was just that.

[nageswaragunupudi]

Uwe,

I see the -1. So it really returns one more than the token count? Is this a bug?

Maybe we should create a better function:

function TokenCount( cString, cToken )
return ( hb_tokenCount( cString, cToken) -1 )

James

Mr. James
Please look at the function again. There is no bug at all.
The function hb_tokenCount( "This is a test", " " ) returns the number of tokens with " " (space) as separator. The function returns 4 meaning that there are 4 tokens, viz., "This", "is", "a", "test". The result is correct. But if we want to know how many times the separator is there, it is naturally the number of tokens minus one.
There is nothing wrong with the function at all, which returns the number of tokens correctly. If we want to use the same function for counting number of times the separator occurs we need to subtract one from the number of tokens.

[nageswaragunupudi]

To count the number of times a substring occurs in a string, there is another function

Code: Select all  Expand view

Occurs( <cSubStr>, <cString> ) --> nCount

and also

Code: Select all  Expand view

NumAt( <cSubStr>, <cString> ) --> nCount // ct.lib

[James Bott]

Rao,

Thanks for the explaination about hb_tokenCount(). However, I still don't understand this example:

msgalert( hb_tokenCount( "user1/temp/temp", "temp" ) -1 ) // Result 2

If we are looking for the number of occurances of "temp" shouldn't hb_tokenCount() return 2? Then the above should return 1, correct?

The Occurs() function seems to be the better and less confusing choice.

Regards,
James

[nageswaragunupudi]

msgalert( hb_tokenCount( "user1/temp/temp", "temp" ) -1 ) // Result 2

If we are looking for the number of occurances of "temp" shouldn't hb_tokenCount() return 2? Then the above should return 1, correct?

The actual purpose of HB_TokenCount() is to get the count of number of tokens separated by the specified separator, but not to count the number of occurances of the separator itself. Here the programmer intends to use a function created for a different purpose to get what he wants. He is using the general principle that number of occurances of a separator is always number or tokens separated by it less 1. Finally he is deriving what he wants. In the above case, the separator is "temp". The tokens separated by "temp" are "user1/", "/" and "", which are three. Now rest is arithmetics.

The Occurs() function seems to be the better and less confusing choice.

Yes, occurs() is a direct function counting the number of occurances of a substring. This gives a direct count without the additional work of counting tokens and subtracting by one.

The other function NumAt(...) is a very old function that many clipper programmers have been quite familiar with since the olden days of Clipper Tools.

[James Bott]

Rao,

The tokens separated by "temp" are "user1/", "/" and "",

I guess this is what was confusing me. I wouldn't think that "" counts as a token. It doesn't seem logical to me to count nil as a token. It seems like it is returning the number of tokens plus 1.

I am not arguing with you (the function does what it does), just stating why it seems confusing.

Regards,
James