Funtion to count characters in strings

[Guest]

Is there a function whereby I can count how many times a character or word
appears in a string or memo field?

e.g. functionname("For Forfeiting Friday"),"F") = 3 (assuming case sensitive)

 

[Duane Hookom]

If you weren't concerned about case sensitive, you could use:
Len([Your Field]) - Len(Replace([Your Field],"F",""))

 

[kingston via AccessMonster.com]

You can create a function like this:

Public Function ReturnNum(InputString, SrchChar) As Integer

Dim array1 As Variant

array1 = Split(InputString, SrchChar)
ReturnNum = UBound(array1)

End Function

Then you'd ask for ReturnNum("For Forfeiting Friday","F") and get 3.

 

[Duane Hookom]

Kingston,
Your function returns 4, not 3.

 

[kingston via AccessMonster.com]

It returns 3 for me. I'm running AC2000 and VB6.3.

Kingston,
Your function returns 4, not 3.

You can create a function like this:

[quoted text clipped - 14 lines]

 

[Duane Hookom]

How does your function become case sensitive? There are 4 Fs in the string
including both upper and lower case.

--
Duane Hookom
MS Access MVP

It returns 3 for me. I'm running AC2000 and VB6.3.

Kingston,
Your function returns 4, not 3.

You can create a function like this:

[quoted text clipped - 14 lines]

e.g. functionname("For Forfeiting Friday"),"F") = 3 (assuming case
sensitive)

 

[kingston via AccessMonster.com]

I dunno. It just is. I added a dozen lower case f's and it still returns 3.
Can I send you a screenshot?

How does your function become case sensitive? There are 4 Fs in the string
including both upper and lower case.

It returns 3 for me. I'm running AC2000 and VB6.3.

[quoted text clipped - 6 lines]

 

[John Spencer]

Actually, since Replace has an optional argument to allow binary comparison
or text comparison, Duane Hookom's example works with the additional
argument specified.

Len([Your Field]) - Len(Replace([Your Field],"F","",,,0)

If you weren't concerned about case sensitive, you could use:
Len([Your Field]) - Len(Replace([Your Field],"F",""))

--
Duane Hookom
MS Access MVP

Is there a function whereby I can count how many times a character or
word
appears in a string or memo field?

e.g. functionname("For Forfeiting Friday"),"F") = 3 (assuming case
sensitive)

 

[kingston via AccessMonster.com]

Also, the function Split() can be set to distinguish between lower case and
upper case characters via the flag vbBinaryCompare:

array1 = Split(InputString, SrchChar, , vbBinaryCompare)

How does your function become case sensitive? There are 4 Fs in the string
including both upper and lower case.

It returns 3 for me. I'm running AC2000 and VB6.3.

[quoted text clipped - 6 lines]

 

[Duane Hookom]

Ok that explains the difference. John Spencer add to my earlier suggestion
with similar functionality.

--
Duane Hookom
MS Access MVP

Also, the function Split() can be set to distinguish between lower case
and
upper case characters via the flag vbBinaryCompare:

array1 = Split(InputString, SrchChar, , vbBinaryCompare)

How does your function become case sensitive? There are 4 Fs in the string
including both upper and lower case.

It returns 3 for me. I'm running AC2000 and VB6.3.

[quoted text clipped - 6 lines]

e.g. functionname("For Forfeiting Friday"),"F") = 3 (assuming case
sensitive)