VBA基础
怎样取得一个字符串在另外一个字符串中出现的次数？
2004-02-21 20:41:00

 

 

 

 

 

专题地址：

http://access911.net/index.asp?board=4&recordid=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 String, String2 As String) As Integer      Dim I As Integer, iCount As Integer      I = 1      Do             If (I > Len(String1)) Then Exit Do             I = InStr(I, String1, String2, vbTextCompare)             If I Then                iCount = iCount + 1                I = I + 2                DoEvents             End If      Loop While I      sCount = iCount  End Function 

 

 

 

  

 

 

首页