请问在字符串中查找相同字符个数的函数怎么写?急急!!!!!!!!!

bluefish922 2002-01-11 06:46:40
请问在字符串中查找相同字符个数的函数怎么写?
比如“jg,ago,gao,gaow,”
中查找“,”的个数
...全文
363 点赞 收藏 9
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhaozhongju 2002-04-05
To Bardo(巴顿) :
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
回复
estrella 2002-01-11
同意Bardo(巴顿)的看法,再详细一点:
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
回复
Bardo 2002-01-11
对不起,上面错了
RepeatCount=Ubound(Split(OrgStr,Chkstr))
回复
Bardo 2002-01-11
RepeatCount=Ubound(Split(Replace(OrgStr,Chkstr))
回复
发动态
发帖子
非技术类
创建于2007-09-28

720

社区成员

VB 版八卦、闲侃,联络感情地盘,禁广告帖、作业帖
申请成为版主
社区公告
暂无公告