Search Tools Links Login

Character counter


A FAST and EASY way to count the number of occurrences of one string within another! Please vote for this tip if you find it useful.

Original Author: Chris Wilson

Code

Private Sub Test()
Const mystr = "This is a test of the split function"
' returns 6
Debug.Print Occurs(mystr, "t")
End Sub
Public Function Occurs(ByVal strtochk As String, ByVal searchstr As String) As Long
' remember SPLIT returns a zero-based array
Occurs = UBound(Split(strtochk, searchstr)) + 1
End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 71 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.