720
社区成员
- 主页
请问在字符串中查找相同字符个数的函数怎么写？急急！！！！！！！！！
请问在字符串中查找相同字符个数的函数怎么写？
比如“jg,ago,gao,gaow,”
中查找“，”的个数
比如“jg,ago,gao,gaow,”
中查找“，”的个数
...全文
请发表友善的回复…
发表回复
zhaozhongju 2002-04-05
To Bardo(巴顿) :
YOU ARE GREAT！！^_^
TO bluefish922 (小月人) :
快给答对的兄弟加分啊，朋友，要讲信用的
YOU ARE GREAT！！^_^
TO bluefish922 (小月人) :
快给答对的兄弟加分啊，朋友，要讲信用的
Soft21 2002-01-13
大家好啊，我嘛，我学到了不少东西
bc3 2002-01-11
老巴的方法正确
ruikang 2002-01-11
对不起，理解错意思啦
ruikang 2002-01-11
Private Function StatStrCount(SourceStr As String, FindStr As String) As Integer
'这个函数统计在SourceStr中FindStr出现的次数。
'入口参数:SourceStr=源字符串,FindStr=待统计字符串
'出口参数：出现次数
StatStrCount = Len(Replace(SourceStr, FindStr, FindStr & "@")) - Len(SourceStr)
End Function
'这个函数统计在SourceStr中FindStr出现的次数。
'入口参数:SourceStr=源字符串,FindStr=待统计字符串
'出口参数：出现次数
StatStrCount = Len(Replace(SourceStr, FindStr, FindStr & "@")) - Len(SourceStr)
End Function
estrella 2002-01-11
同意Bardo(巴顿)的看法,再详细一点:
dim Arr()
dim YouWant
arr=split(“jg ago gao gaow”) '这里以空格分割字符.
YouWant=ubound(arr)
建议不要用逗号区分字符.
dim Arr()
dim YouWant
arr=split(“jg ago gao gaow”) '这里以空格分割字符.
YouWant=ubound(arr)
建议不要用逗号区分字符.
playyuer 2002-01-11
Private Sub Command1_Click()
VBA.MsgBox GetRepeatCount("aabcdaa", "aa")
End Sub
Public Function GetRepeatCount(X As String, Y As String) As Long
GetRepeatCount = (VBA.Len(X) - VBA.Len(VBA.Replace(X, Y, ""))) \ VBA.Len(Y)
End Function
VBA.MsgBox GetRepeatCount("aabcdaa", "aa")
End Sub
Public Function GetRepeatCount(X As String, Y As String) As Long
GetRepeatCount = (VBA.Len(X) - VBA.Len(VBA.Replace(X, Y, ""))) \ VBA.Len(Y)
End Function
Bardo 2002-01-11
对不起，上面错了
RepeatCount=Ubound(Split(OrgStr,Chkstr))
RepeatCount=Ubound(Split(OrgStr,Chkstr))
Bardo 2002-01-11
RepeatCount=Ubound(Split(Replace(OrgStr,Chkstr))