How many times a char appears in a string? 4

[meinhunna]

how can i find, how many times a character appears in a string? for eg how many time "-" occurs in "123-456-78"

thanx

 

[PankajBanga]

Dim str As String = "123-456-78"
Dim i As Integer = Len(str) - Len(Replace(str, "-", ""))

MsgBox(i)

Result --> 2

http://home.iprimus.com.au/pankajbanga

 

[SqueakinSweep]

Public Shared Function CountChars(ByVal sString As String, ByVal sSearch As String) As Integer
   Dim i As Integer = sString.Length - sString.Replace(sSearch, "").Length
   Return i
End Function

Sweep
...if it works dont mess with it

 

[johnCronin]

   Dim s1 As String = "Aaa Ha"
   Dim r As RegularExpressions.Regex = _
     New RegularExpressions.Regex("a", RegularExpressions.RegexOptions.IgnoreCase)
   Dim matches As Integer = r.Matches(s1).Count
   MessageBox.Show(matches)   'should display 4