/ Snippet Library - View Code

Snippet details

ID: 440

Viewed: 1260

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Item count

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPublic Function ItemCount(ByVal sOrigStr As String, ByVal sDelim As String) As Long ' ' Returns the number of occurances of sDelim in szStr) ' Dim lCount As Long Dim lPos As Long Dim lPos2 As Long Dim bOver As Boolean Dim lDelim As Long On Error GoTo vbErrorHandler lPos = 0 lCount = 0 If sOrigStr = "" Then ItemCount = 0 Exit Function End If lDelim = Len(sDelim) Do lPos2 = InStr(lPos + lDelim, sOrigStr, sDelim) If lPos2 = 0 And lPos = 0 Then lCount = 1 Exit Do Else If lPos2 = 0 Then If Mid$(sOrigStr, lPos + lDelim, 1) <> "" Then lCount = lCount + 1 End If Exit Do End If End If lCount = lCount + 1 lPos = lPos2 Loop ItemCount = lCount Exit Function vbErrorHandler: ' ' Handle Error Here ! ' End Function

No Reviews to show