有没有一函数能得到一个字符在某个字符串中出现次数?

peter001 2004-09-18 02:14:29

如
a = "AAAbbbbAAAA"
print func(a,"A") => 7

...全文

276 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

lang_csdn 2004-09-19

打赏
举报

学习

wumylove1234 2004-09-19

打赏
举报

TechnoFantasy(冰儿马甲www.applevb.com)
方法太牛了~佩服的没话说!

caojinrong 2004-09-19

打赏
举报

佩服！

flc 2004-09-19

打赏
举报

好象没有这样功能的内部函数
马甲老大的方法不错！收藏了！

bigtack 2004-09-19

打赏
举报

cpio
你的解决方法太有创意了
goood！
佩服！

northwolves 2004-09-19

打赏
举报

Option Base 1
Private Sub Command1_Click()
MsgBox UBound(Split("AAAbbbbAAAA", "A", , vbBinaryCompare))
End Sub

wwqna 2004-09-19

打赏
举报

陈老大这方法有创意

TechnoFantasy 2004-09-18

打赏
举报

使用范例：

Private Sub Command1_Click()
Dim a As String

s = "12123dlkdfjsdfjoidj123skjdisduirenjds123"
Debug.Print getCount(s, "123")
End Sub

TechnoFantasy 2004-09-18

打赏
举报

Function getCount(ByVal str As String, countstr As String) As Integer
getCount = (Len(str) - Len(Replace(str, countstr, ""))) / Len(countstr)
End Function

str是字符串，countstr是计算重复出现的字符串。

pweixing 2004-09-18

打赏
举报

可以用数组或者集合来实现！内部函数的却没有！

xhggg 2004-09-18

打赏
举报

没有

我的答案最权威，给分不商量

tztz520 2004-09-18

打赏
举报

Private Sub Command2_Click()
Dim ls_Content() As String
Dim LogCount As Long
Dim a As String

a = "AAAbbbbAAAA"
ls_Content = Split(a, "A")'查找的字符串
LogCount = UBound(ls_Content, 1)
MsgBox LogCount'得到A的个数
End Sub

peter001 2004-09-18

打赏
举报

我的意思是..有没有内部的函数..效率高一点的.

cpio 2004-09-18

打赏
举报

function func(str1 as string,str2 as string) as long
dim i as long
func=0
for i=1 to len(str2)
if str1=mid(str2,i,1) then func=func+1
next
end function