<<< 返回 access911.net 编程静态资料库索引页

怎样取得一个字符串在另外一个字符串中出现的次数？ 

 

作者：cg1  摘自：access911.net  录入：cg1  时间：2004-2-9  浏览人次：1812

专题地址：http://www.access911.net/index.asp?u1=a&u2=71FAB71E17DCEDF3 如果需要更详细的评论或说明，请点击该地址。

 

简述：    怎样取得一个字符串在另外一个字符串中出现的次数？
    一个简单的函数，VBA中没有，我们可以用几种方法来实现，一般是使用循环来数数字，我们也可以使用 REPLACE 的特性结合 LEN 函数计算来计算出现次数。相对来说使用 REPLACE 代码更少。

 

问题：

怎样取得一个字符串在另外一个字符串中出现的次数？ 

 


方法一：

Function strCount(strA As String, strB As String) As Long
    Dim lngA As Long
    Dim lngB As Long
    Dim lngC As Long
    lngA = Len(strA)
    lngB = Len(strB)
    lngC = Len(Replace(strA, strB, ""))
    strCount = (lngA - lngC) / lngB
End Function

 


方法二：

Public Function sCount(String1 As Str.....................
...........

资料库随时有更新，欲查看最新详情请单击专题地址：http://www.access911.net/index.asp?u1=a&u2=71FAB71E17DCEDF3

 

上一篇：如何能通过窗体访问表，但不能直接读取表？

下一篇：代替DLOOKUP的代码

2010年7月2日生成静态资料