Question

VB 如何获取字符串中一个字符出现的次数

大意如题，我该如何解决呢？最好能给提供个函数！

Answer 1

Function strCount(strA As String, strB As String) As Long
Dim lngA As Long
Dim lngB As Long
Dim lngC As Long
lngA = Len(strA)
lngB = Len(strB)
lngC = Len(Replace(strA, strB, ""))
strCount = (lngA - lngC) / lngB
End Function

Answer 2

循环遍历这个字符串，用一个计数器来记录该字符的个数。
int fun(char[] str,char ch)
{
int i=0; //"i" is a calculator
char *p=str;
while(p!=NULL)
{
if(*p==ch) i++;
}
return i;
}

Answer 3

我为 正确答案注解了一下
Function hqcs( s1 As String, s2 As String) As Long
Dim i1 As Long '获取字符串s1里 的 s2字符串 出现的次数
Dim i2 As Long 's1为 总字符串 被检测的字符串 s2特殊字符串
Dim i3 As Long '假设 a113a22a55 里 a出现了3次 s2则是a
i1 = Len(s1) 's1则为"a113a22a55"
i2 = Len(s2)
i3 = Len(Replace(s1, s2, ""))
hqcs = (i1 - i3) / i2
End Function