一个字符串在VBA中包含一个字符的次数

Question

is ther any way to know how many times a string contains a specific char?

eg how many times does the string "strin" contains a comma.

    Dim strin as strin
    strin = "qwe, asd, zcx"

Answer 1

An old "trick" is to replace the string with something else, and check the difference in lengths of the string before and after doing the replace.

Dim replaced as string
replaced = Replace(strin, ",", "")
' count = Len(string) - Len(replaced)

If you had to count a multi-character string, like a comma and a space, you would have to divide the results by the length of the string you were replacing:

Dim replaced as string
replaced = Replace(strin, ", ", "")
' count = (Len(string) - Len(replaced)) / 2

Answer 2

I think the best approach is to use a function.

The code below should do the trick.

sub TestCharCountFunction ' this sub is for testing the function

strin = "qwe, asd, zcx"

   msgbox  "Character appears " & charcounter( strin, "," ) & " time(s)"

end sub

function CharCounter (byval MyString as string, byval CharToSearch as string) as integer


dim X as integer

charcounter = 0

for X= 1 to len(mystring)

    if mid(mystring, x,1) = chartosearch then charcounter = charcounter + 1

next

end function