求一统计文本框中指定字符个数的函数！(已解决)

sxgaobo

如：文本框中内容为：欢迎你在Office中国/Access中国发布信息
如何可以统计出有3个C或2个中？

tmtony

1.可使用 逐个循环 mid(字符串,i,1)  
2.复杂的可使用正则表达式

Henry D. Sy

把C替换为"",然后两个字符串的长度相减

tmtony

Henry D. Sy 发表于 2017-8-10 18:04
把C替换为"",然后两个字符串的长度相减

好办法

Henry D. Sy

1. Public Function GCount(mText As String, str As String) As Long
   
2.     Dim temp As String
   
3.     temp = Replace(mText, str, "")
   
4.     GCount = Len(mText) - Len(temp)
   
5. End Function

复制代码

sxgaobo

Henry D. Sy 发表于 2017-8-12 18:44

高！实在是高！！！