Regex Matches : Regular Expressions « Regular Expressions « VB.Net Tutorial

1. VB.Net Tutorial
2. Regular Expressions
3. Regular Expressions

Imports System.Text.RegularExpressions
Public Class Tester
    Public Shared Sub Main
        Dim quote As String = "AA BB in"
        Dim count1 As Integer
        Dim count2 As Integer
        Dim count3 As Integer
        count1 = Regex.Matches(quote, "(in)+").Count

        count2 = Split(quote, "in").Length - 1

        Dim content As String = "in"

        Dim position As Integer = -content.Length
        Do
            position = quote.IndexOf(content, position + content.Length)
            If (position < 0) Then Exit Do
            count3 += 1
        Loop

        Console.WriteLine(String.Format( _
            "{0}{3}{1}{3}{2}", count1, count2, count3, vbNewLine))    
    
    End Sub

End Class

1
1
1