Mega Code Archive

 

Categories / VB.Net / Development

 

1 match the value of the first capture

Imports System.Text.RegularExpressions Module Example    Public Sub Main()       Dim pattern As String = "(\w)\1"       Dim words() As String = { "this", "is", "a", "test"}       For Each word As String In words          Dim match As Match = Regex.Match(word, pattern)          If match.Success Then             Console.WriteLine("'{0}' found in '{1}' at position {2}.",match.Value, word, match.Index)          Else             Console.WriteLine("No double characters in '{0}'.", word)          End If       Next                                                      End Sub End Module