统计重复字符串的函数-->zhuyiwen转移

菜虫

1、字符串如下：
    123-122221-21111-11-11
要求找出“-”在“123-122221-21111-11-11”中的个数
2、函数如下：Option Compare Database
'_______________________________________________________________________________
Public Function TONGJI(strText As String, steFind As String, Optional lngCompare As VbCompareMethod) As Long



Dim lngpos As Long

Dim lngtemp As Long

Dim lngcount As Long


lngpos = 1: lngcount = 0


Do

    lngpos = InStr(lngpos, strText, steFind, lngCompare)

       lngtemp = lngpos
         
     If lngpos > 0 Then

       lngcount = lngcount + 1
      
          lngpos = lngpos + Len(steFind)


     End If

Loop Until ingpos = 0

TONGJI = lngcount

End Function
'_________________________________________________________________________________
调用结果：

TONGJI("123-122221-21111-11-11","-",1)=1
为什么不=4
谁知道程序哪里错了?

aban

马大哈！
你的书写错误！
Loop Until ingpos = 0
应该是：
Loop Until lngpos = 0

建议在最模块前面加上
Option Compare Database
Option Explicit

菜虫

谢谢！