Mega Code Archive

 

Categories / VB.Net / Development

 

Find duplicates

Imports System.Text.RegularExpressions Module modMain    Public Sub Main()       Dim pattern As String = "\b(\w+?)\s\1\b"       Dim input As String = "this is a test. this is a test"       For Each match As Match In Regex.Matches(input, pattern, RegexOptions.IgnoreCase)          Console.WriteLine("{0} (duplicates '{1})' at position {2}", _                            match.Value, match.Groups(1).Value, match.Index)       Next    End Sub End Module