FiveTech Software tech support forums

Hi all,
I need function or way how to find The numeric ocurrence of the token inside string
For example:
cString := "this is the sample text"
I need to know that token "sample" is on teh 4 position in the string

Best regards,

HI;

I found 3 way to do it. Both with Nanforum toolkit NF.lib or hbnf.lib from Harbour
1 -
FT_NOOCCUR()
Find the number of times one string occurs in another
------------------------------------------------------------------------------
Syntax
FT_NOOCCUR( <cCheckFor>, <cCheckIn> ;
[, <lIgnoreCase> ] ) -> <nOccurrences>
Arguments
<cCheckFor> is the string to search for
<cCheckIn> is the string to search
<lIgnoreCase> is a boolean variable to force case sensitivity
(optional, defaults to .F.).
Returns
The number of times <cCheckFor> appears in <cCheckIn>
Description
This function finds the number of times a string occurs in a
second string.
Examples
// Find the number of times "the" appears in cMemoString, case
// insensitive
nNoOfOccurrences := FT_NOOCCUR( "the", cMemoString )
// Find the number of times "the" appears in cMemoString, case
// sensitive
nNoOfOccurrences := FT_NOOCCUR( "the", cMemoString, TRUE )

2 -
MsgInfo( FT_AT2( "sample", "this is the sample text" ) ) RETURN 13, the first character of Sample

3 -
FT_FINDITH()
Find the "ith" occurrence of a substring within a string
------------------------------------------------------------------------------
Syntax
FT_FINDITH( <cCheckFor>, <cCheckIn>, <nWhichOccurrence> ;
[, <lIgnoreCase> ] ) -> <nStringPosition>
Arguments
<cCheckFor> is the string to search for.
<cCheckIn> is the string to search.
<nWhichOccurrence> is the number of the occurrence to find.
<lIgnoreCase> is a logical indicating if the search is to be case
sensitive. The default is no case sensitivity (.F.).
Returns
The position in the string cCheckIn of the ith occurrence of cCheckFor.
Description
This function finds the position in a string of the "ith" time another
string appears in it.
Examples
// Find the Position in cMemoString of
// the 10th Occurrence of "the", case
// insensitive

nNextPosition := FT_FINDITH("the", cMemoString, 10)



Best regads
Ruben Fernandez

Seems good but there are errors

Unresolved external '_HB_FUN_FT_FINDITH'

Need i some other lib ?

Regards

p.s

Isnt it some function simular to StrToken()

Try this:

MsgInfo( AScan( hb_ATokens( cLine, " " ), { | cToken | cToken == "sample" } ) )

Going good
Thanks Antonio

Regards,

Hi Antonio,
function hb_ATokens dont work good.
It return good value just in case if there is ONLY one space between all tokens
Example:
MsgInfo( AScan( hb_ATokens( cText1, " " ), { | cToken | cToken == "sample" } ) ) -> Return 4
MsgInfo( AScan( hb_ATokens( cText2, " " ), { | cToken | cToken == "sample" } ) ) -> Retunr 7

Any other solution please ?

Best regards.

Hi,

Hi,
You can try by first replacing all multiples spaces to just one space by using the function "atrepl()" inside a for-next instruction: until you have just one space among each word in cString variable, after that, you can apply Antonio's suggestion.

Regards,

George

Thanks to all for sugestions

In this time this is my opinion ... But isnt it simular function in fivewin ?

Best regards,

Try this:

local cText := "This is another test"

MsgInfo( At( StrToken( cText, 3 ), cText ) )

Hi,
I dont understand your sample Antonio,
In your sample i need to know on which position is token "another"
I dont know that it is on position 3 (if you think that)
hmpaquito sample working good
function i created working good too and it is smaller faster and easyer .
I am not only sure is it simular function if fivewin ?

Best regards,

Avista,

avista wrote:

Code: Select all

cText1 := "this is a sample text"
cText2 := "this  is  a  sample  text"

MsgInfo( AScan( hb_ATokens( cText1, " " ), { | cToken | cToken == "sample" } ) ) -> Return 4
MsgInfo( AScan( hb_ATokens( cText2, " " ), { | cToken | cToken == "sample" } ) ) -> Retunr 7

here is a working sample

MsgInfo( AScan( hb_ATokens( StrTran( cLine, " ", " " ), " " ), { | cToken | cToken == "sample" } ) )

StrTran( cLine, " ", " " ) will leave just one space between each token
notice first " " have two spaces and second " " just one.