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

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

 

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


专题地址:http://access911.net/fixhtm/71FAB71E17DCEDF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:    怎样取得一个字符串在另外一个字符串中出现的次数?
    一个简单的函数,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 String, String2 As String) As Integer 
    Dim I As Integer.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB71E17DCEDF3.htm

 


上一篇:如何能通过窗体访问表,但不能直接读取表?

下一篇:代替DLOOKUP的代码

2017年2月22日生成静态资料