查找字符在字符串中出现的次数次数，是哪一个函数？

[dubuxunmei]

查找字符在字符串中出现的次数，是哪一个函数？

[MoQi_123]

Private Function GetX(ByVal strSource As String, ByVal strX As String) As Integer
Dim i As Integer
Dim j As Integer

i = InStr(1, strSource, strX)
j = 0
Do While i <> 0
i = InStr(i + 1, strSource, strX)
j = j + 1
Loop

GetX = j
End Function

经过测试，可以用

比如
Msgbox GetX("A1A2A3A4","A")
结果为4

[用户 昵称]

wonderful

[RandomLife]

private function GetX(ByVal strSource As String, ByVal strX As String) As Integer
dim i as integer,j as integer
i=len(strSource)
j=len(replace(strSource,strX,""))
GetX=i-j
end function

没测试，我想也可以用。

[cameozhang]

自己写呗，很easy啊

[_TMG_]

随手写的, 不知道找不到的时候会不会有问题, 调试一下把

private function GetX(ByVal strSource As String, ByVal strX As String) As Integer
dim TempArray

TempArray = Split(strSource, strX)

GetX=Ubound(TempArray) -1

end function