Diese kleine Funktion zählt das Vorkommen eines Teilstrings im gesamten String.
Optional Parameter "matchcase" legt fest ob Groß-/Kleinschreibung berücksichtigt wird
Private Function Hits(findin As String, findwhat As String, Optional matchcase As Boolean = False)
If Not matchcase Then Return findin.ToLower.Split(New String() {findwhat.ToLower}, StringSplitOptions.None).Count() - 1 Else Return findin.Split(New String() {findwhat}, StringSplitOptions.None).Count() - 1
End Function
Dim a = "Extension methods have all the capabilities of regular static Methods."
MsgBox(Hits(a, "methods") )
MsgBox(Hits(a, "methods",True) )
Kommentare zum Snippet