Permalink
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (19 sloc) 534 Bytes
' Visual Basic .NET Document
Option Strict On
' <Snippet7>
Imports System.Text.RegularExpressions
Module Example
Public Sub Main()
Dim pattern As String = "\b(?!un)\w+\b"
Dim input As String = "unite one unethical ethics use untie ultimate"
For Each match As Match In Regex.Matches(input, pattern, RegexOptions.IgnoreCase)
Console.WriteLine(match.Value)
Next
End Sub
End Module
' The example displays the following output:
' one
' ethics
' use
' ultimate
' </Snippet7>