Подсчитайте количество вхождений символа в строке?

Question

Можно создать дубликат:
Count specific character occurances in string

У меня есть разделители в строке, что я должен проверить. Как я могу подсчитать вхождения этого символа. На данный момент у меня есть следующая функция.

Private Shared Function CountChars(ByVal value As String) As Integer 
    Dim count = 0 
    For Each c As Char In value 
     If c = "$"c Then 
      count += 1 
     End If 
    Next 
    Return count 
End Function 

Любое альтернативное решение, которое выглядит лучше?

Answer 1

Или вы можете использовать LINQ ..

Private Function CountChars(ByVal value As String) As Integer 

    Return value.ToCharArray().Count(Function(c) c = "$"c) 

End Function 

Как Meta-Knight указал он может быть сокращен до:

value.Count(Function(c) c = "$"c) 

Answer 2

Вы можете проверить количество происшествий еще одним способом. См. Приведенный ниже код, если вы найдете его лучше, вы можете его использовать.

Dim Occurrences As Integer 
    Dim Start As Integer 
    Dim Found As Integer 
    Do 
     Start = Found + 1 
     Found = InStr(Start, "ENTERTAINMENT", "E") 
     If Found = 0 Then Exit Do 
     Occurrences += 1 
    Loop 

Answer 3

простейшим и самым универсальным способом я могу думать :

Private Shared Function CountChars(ByVal value As String, Byval delim as String) As Integer 

    Return Len(value) - Len(Replace(value, delim, "")) 

End Function