Counting charater occurances efficiently

[Peter]

What is the most efficient way to count occurances of charaters in a string?

IE. Searching for ',' in a comma del file.

 

[Herfried K. Wagner [MVP]]

What is the most efficient way to count occurances of charaters in
a string?

IE. Searching for ',' in a comma del file.

\\\
Dim n As Integer = CountOccurances(..., ","c)
..
..
..
Private Function CountOccurances( _
ByVal Text As String, _
ByVal Character As Char _
) As Integer
Dim Count As Integer
For Each c As Char In Text
If c = Character Then
Count += 1
End If
Next c
Return Count
End Function
///

 

[Cor Ligthert]

Peter,

This was the best result in a test I did last year when it is about a char.
This code was supplied by Jay B. Harlow

Public Function test5(ByVal input As String, ByVal _
delimiter As Char) As Integer
Dim count, index As Integer
index = input.IndexOf(delimiter)
Do Until index < 0
count += 1
index = input.IndexOf(delimiter, index + 1)
Loop
Return count

I hope this helps?

Cor