Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
May 13, 2002

Use the InStr() Function to Count Occurrences Within a String


There are many ways to count the occurrences of a string within a text. Here's a simple function that uses the InStr() function:
 
    Function CountWords(ByVal Text As String, _
        ByVal Word As String, _
        Optional ByVal Compare As VbCompareMethod _
         = vbTextCompare) As Long

    Dim Position As Long
    Dim WordLength As Long
        Position = InStr(1, Text, Word, Compare)
        WordLength = Len(Word)
        Do While Position
            CountWords = CountWords + 1
            Position = InStr(Position + WordLength, Text, _
Word, Compare)
        Loop
    End Function
Andreas Hillqvist
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date