Office中国论坛/Access中国论坛

标题: 统计重复字符串的函数-->zhuyiwen转移 [打印本页]

作者: 菜虫 时间: 2002-10-9 22:20
标题: 统计重复字符串的函数-->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 时间: 2002-10-28 12:25
马大哈！
你的书写错误！
Loop Until ingpos = 0
应该是：
Loop Until lngpos = 0

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

作者: 菜虫 时间: 2002-10-30 02:12
谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)