Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

显示一字符串在另一个字符串中出现次数的函数

1970-1-1 08:00| 发布者: 冰雪| 查看: 1748| 评论: 0

Function CountStr(somestr, target)
Dim a, count As Integer
a = InStr(1, somestr, target)
Do While a > 0
count = count + 1
a = InStr(a + 1, somestr, target)
Loop
CountStr = count
End Function
运行：MsgBox CountStr("ASAASDWA", "A") '=4
MsgBox CountStr("ASAASDWA", "B") '=0

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

显示一字符串在另一个字符串中出现次数的函数

最新评论

相关分类