Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' Visual Basic .NET Document | |
| Option Strict On | |
| ' <Snippet11> | |
| Imports System.Text.RegularExpressions | |
| Module Example | |
| Public Sub Main() | |
| Dim inputs() As String = { "cccd.", "aaad", "aaaa" } | |
| Dim back As String = "(\w)\1+.\b" | |
| Dim noback As String = "(?>(\w)\1+).\b" | |
| For Each input As String In inputs | |
| Dim match1 As Match = Regex.Match(input, back) | |
| Dim match2 As Match = Regex.Match(input, noback) | |
| Console.WriteLine("{0}: ", input) | |
| Console.Write(" Backtracking : ") | |
| If match1.Success Then | |
| Console.WriteLine(match1.Value) | |
| Else | |
| Console.WriteLine("No match") | |
| End If | |
| Console.Write(" Nonbacktracking: ") | |
| If match2.Success Then | |
| Console.WriteLine(match2.Value) | |
| Else | |
| Console.WriteLine("No match") | |
| End If | |
| Next | |
| End Sub | |
| End Module | |
| ' The example displays the following output: | |
| ' cccd.: | |
| ' Backtracking : cccd | |
| ' Nonbacktracking: cccd | |
| ' aaad: | |
| ' Backtracking : aaad | |
| ' Nonbacktracking: aaad | |
| ' aaaa: | |
| ' Backtracking : aaaa | |
| ' Nonbacktracking: No match | |
| ' </Snippet11> |