Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' <Snippet3> | |
| Imports System.Text.RegularExpressions | |
| Module Example | |
| Public Sub Main() | |
| Dim pattern As String = "^[^<>]*" & _ | |
| "(" + "((?'Open'<)[^<>]*)+" & _ | |
| "((?'Close-Open'>)[^<>]*)+" + ")*" & _ | |
| "(?(Open)(?!))$" | |
| Dim input As String = "<abc><mno<xyz>>" | |
| Dim rgx AS New Regex(pattern)' | |
| Dim m As Match = Regex.Match(input, pattern) | |
| If m.Success Then | |
| Console.WriteLine("Input: ""{0}"" " & vbCrLf & "Match: ""{1}""", _ | |
| input, m) | |
| Dim grpCtr As Integer = 0 | |
| For Each grp As Group In m.Groups | |
| Console.WriteLine(" Group {0}: {1}", grpCtr, grp.Value) | |
| grpCtr += 1 | |
| Dim capCtr As Integer = 0 | |
| For Each cap As Capture In grp.Captures | |
| Console.WriteLine(" Capture {0}: {1}", capCtr, cap.Value) | |
| capCtr += 1 | |
| Next | |
| Next | |
| Else | |
| Console.WriteLine("Match failed.") | |
| End If | |
| End Sub | |
| End Module | |
| ' The example displays the following output: | |
| ' Input: "<abc><mno<xyz>>" | |
| ' Match: "<abc><mno<xyz>>" | |
| ' Group 0: <abc><mno<xyz>> | |
| ' Capture 0: <abc><mno<xyz>> | |
| ' Group 1: <mno<xyz>> | |
| ' Capture 0: <abc> | |
| ' Capture 1: <mno<xyz>> | |
| ' Group 2: <xyz | |
| ' Capture 0: <abc | |
| ' Capture 1: <mno | |
| ' Capture 2: <xyz | |
| ' Group 3: > | |
| ' Capture 0: > | |
| ' Capture 1: > | |
| ' Capture 2: > | |
| ' Group 4: | |
| ' Group 5: mno<xyz> | |
| ' Capture 0: abc | |
| ' Capture 1: xyz | |
| ' Capture 2: mno<xyz> | |
| '</Snippet3> |