VB.NET Tutorials

Welcome to Dream.In.Code
	Getting Help is Easy! Join 132,092 Programmers for FREE! Get instant access to thousands of experts, tutorials, code snippets, and more! There are 2,268 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a Expert

5 Ways of counting occurences

5 Ways of counting occurences, How time does a peice text occur within another

Options

AdamSpeight2008
Group Icon

13 Jul, 2008 - 09:58 PM

Post #1

Using For


    Private Function CountOccurs(ByRef original As String, ByRef match As String) As Integer
        Dim mCount As Integer = 0
        For i As Integer = 0 To original.Length - 1
            i = original.IndexOf(match, i)
            If i < 0 Then Exit For
            mCount += 1
            i += 1
        Next
        Return mCount
    End Function

Using While


Private Function CountOccurs(ByRef original As String, ByRef match As String) As Integer
 Dim mCount As Integer = 0
 Dim i as integer=0
 While i>=0
 i = original.IndexOf(match, i)
 If i < 0 Then Exit For
  mCount += 1
  i += 1
 end wihile
 Return mCount
End Function

Using Do


    Private Function CountOccurs(ByRef original As String, ByRef match As String) As Integer
        Dim mCount As Integer = 0
        Dim i As Integer = 0
        Do
            i = original.IndexOf(match, i)
            If i < 0 Then Exit Do
            mCount += 1
            i += 1
        Loop Until i = original.Length
        Return mCount
    End Function
End Function

Using Recursion


    Private Function CountOccurs(ByRef original As String, ByRef match As String, Optional ByRef i As Integer = 0, Optional ByRef mCount As Integer = 0) As Integer
        i = original.IndexOf(match, i)
        If i < 0 Then Return mCount
        mCount += 1
        Return CountOccurs(original, match, i, mCount)
    End Function

Using Regular Expression


    Private Function CountOccurs(ByRef original As String, ByRef match As String) as integer
      Return System.Text.RegularExpressions.Regex.Matches(original, match).Count
    End Function