Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' Visual Basic .NET Document | |
| Option Strict On | |
| ' <Snippet10> | |
| Imports System.Text.RegularExpressions | |
| Module Example | |
| Public Sub Main() | |
| Dim dates() As String = { "Monday February 1, 2010", _ | |
| "Wednesday February 3, 2010", _ | |
| "Saturday February 6, 2010", _ | |
| "Sunday February 7, 2010", _ | |
| "Monday, February 8, 2010" } | |
| Dim pattern As String = "(?<!(Saturday|Sunday) )\b\w+ \d{1,2}, \d{4}\b" | |
| For Each dateValue As String In dates | |
| Dim match As Match = Regex.Match(dateValue, pattern) | |
| If match.Success Then | |
| Console.WriteLine(match.Value) | |
| End If | |
| Next | |
| End Sub | |
| End Module | |
| ' The example displays the following output: | |
| ' February 1, 2010 | |
| ' February 3, 2010 | |
| ' February 8, 2010 | |
| ' </Snippet10> |