Search Tools Links Login

Count spaces or occurances of words or anything with one simple line of code


Count spaces or occurances of words or anything with one simple line of code.

Original Author: _+Seanp2k+_

Inputs

text1.text would be the string you want to count the occurances in. this particular code would count how amny times "hi" appears in text1.text
a common use of this to count both lower and uppercase would to first use the line
text1.text = Lcase(text1.text) to make text1 all lower case. you coudl aslo use this
searchtextbox.text = lcase(searchtextbox.text)
occuranceslabel.caption= ubound(split(document.text, searchtextbox.text))
that would put in occuranceslabel the number of times that the text in searchtextbox appears in the document textbox.

Code

Ubound(Split(text1.text,"hi"))

this can easily be transformed into a function
Public Function fCount(ByVal sString As String, ByVal sDelim As String) As Long
  
  fCount = 0
  On Error Resume Next
  fCount = UBound(Split(sString, sDelim))
End Function

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 106 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.