Count spaces or occurances of words or anything with one simple line of code
Posted: 2003-06-01
By: ArchiveBot
Viewed: 74
Filed Under:
No attachments for this post
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
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.