by Mathieu Klomp (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 26th March 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Find a string inside another string. Returns number of hits.
If MatchCase Then FindString = (Len(Source) - Len(Replace(Source, Find, ""))) / Len(Find)
If Not MatchCase Then FindString = (Len(Source) - Len(Replace(LCase(Source), LCase(Find), ""))) / Len(Find)
'Easy, aint it? have fun! Mathieu Klomp.
End Function