显示一字符串在另一个字符串中出现次数的函数
时间:2005-08-16 10:43 来源:未知 作者:冰雪 阅读:次
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
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
(责任编辑:admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
- ·关于 Partition 函数在分组查询中的应
- ·Access算术运算符的含义和说明表
- ·mid函数的另类用法
- ·access制作程序运行进度框
- ·Function与Sub的异同(函数调用)
- ·Access判断某个数值是否为某个数据类型
- ·select case后面语句块的值的四种格式
- ·vba条件语句的两种表示方法
- ·Access几种数据类型初始化的值
- ·Access vba null与""空字符串的区别
- ·access vba 数据类型表
- ·Access变量的命名规则
- ·Access中EXIT Sub与End Sub的区别
- ·Access vba中参数前关键字ByRef和ByVal
- ·Access列表框快速全选的技巧【最快】
- ·vba函数的数据类型强制转换
最新内容
推荐内容