Not a Member Yet,
Click here to Register
How do you like the new design?






ID: 440
Viewed: 2884
Added: Aug 19, 2002
Version:
Snippet uploaded by: snippet
Written By: Unknown
Demo: Sorry, no demo



User Rated at: 0 Stars
Rate This:

Thank you for your vote. Please wait...

It appears you already voted for this snippet

It appears your vote value was empty

Item count

Highlight all by clicking in box
<!---Declaration--->
none

Highlight All
<!---Code--->
Public 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 Comments to show

Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.


Replying to a Comment...


Adding your comment. Please wait...

Thanks for adding your comment!. After further review it will be added.

There was a problem adding your comment. Please try again.

Please complete all the fields in the form before sending.

© 2002 - 2017 snippetlibrary.com All Rights Reserved. Conditions