README.md
December 5, 2022 ยท View on GitHub
Description
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.
More Info
| Submitted On | |
| By | Chris Wilson |
| Level | Advanced |
| User Rating | 4.5 (18 globes from 4 users) |
| Compatibility | VB 6.0 |
| Category | String Manipulation |
| World | Visual Basic |
| Archive File |
Source 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