Feedback

Vorkommen eines Teilstrings zählen

VB - Ed.Monsur September 22, 2023
0 Ratings 0/5

Sprache: VB

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) ) 
    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) )
Abgelegt unter String

Alte URL: /snippet/vorkommen-eines-teilstrings-zaehlen/16222