本文整理汇总了VB.NET中System.Text.RegularExpressions.Capture.Value属性的典型用法代码示例。如果您正苦于以下问题：VB.NET Capture.Value属性的具体用法？VB.NET Capture.Value怎么用？VB.NET Capture.Value使用的例子？那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Text.RegularExpressions.Capture的用法示例。
在下文中一共展示了Capture.Value属性的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Example
' 导入命名空间
Imports System.Text.RegularExpressions
Module Example
Public Sub Main()
Dim input As String = "Yes. This dog is very friendly."
Dim pattern As String = "((\w+)[\s.])+"
For Each match As Match In Regex.Matches(input, pattern)
Console.WriteLine("Match: {0}", match.Value)
For groupCtr As Integer = 0 To match.Groups.Count - 1
Dim group As Group = match.Groups(groupCtr)
Console.WriteLine(" Group {0}: {1}", groupCtr, group.Value)
For captureCtr As Integer = 0 To group.Captures.Count - 1
Console.WriteLine(" Capture {0}: {1}", captureCtr, _
group.Captures(captureCtr).Value)
Next
Next
Next
End Sub
End Module输出：
Match: Yes. Group 0: Yes. Capture 0: Yes. Group 1: Yes. Capture 0: Yes. Group 2: Yes Capture 0: Yes Match: This dog is very friendly. Group 0: This dog is very friendly. Capture 0: This dog is very friendly. Group 1: friendly. Capture 0: This Capture 1: dog Capture 2: is Capture 3: very Capture 4: friendly. Group 2: friendly Capture 0: This Capture 1: dog Capture 2: is Capture 3: very Capture 4: friendly
示例2: Example
' 导入命名空间
Imports System.Text.RegularExpressions
Module Example
Public Sub Main()
Dim pattern As String = "^([a-z]+)(\d+)?\.([a-z]+(\d)*)$"
Dim values() As String = { "AC10", "Za203.CYM", "XYZ.CoA", "ABC.x170" }
For Each value In values
Dim m As Match = Regex.Match(value, pattern, RegexOptions.IgnoreCase)
If m.Success Then
Console.WriteLine("Match: '{0}'", m.Value)
Console.WriteLine(" Number of Capturing Groups: {0}",
m.Groups.Count)
For gCtr As Integer = 0 To m.Groups.Count - 1
Dim group As Group = m.Groups(gCtr)
Console.WriteLine(" Group {0}: {1}", gCtr,
If(group.Value = "", "<empty>", "'" + group.Value + "'"))
Console.WriteLine(" Number of Captures: {0}",
group.Captures.Count)
For cCtr As Integer = 0 To group.Captures.Count - 1
Console.WriteLine(" Capture {0}: {1}",
cCtr, group.Captures(cCtr).Value)
Next
Next
Else
Console.WriteLine("No match for {0}: Match.Value is {1}",
value, If(m.Value = String.Empty, "<empty>", m.Value))
End If
Next
End Sub
End Module输出：
No match for AC10: Match.Value isMatch: 'Za203.CYM' Number of Capturing Groups: 5 Group 0: 'Za203.CYM' Number of Captures: 1 Capture 0: Za203.CYM Group 1: 'Za' Number of Captures: 1 Capture 0: Za Group 2: '203' Number of Captures: 1 Capture 0: 203 Group 3: 'CYM' Number of Captures: 1 Capture 0: CYM Group 4: Number of Captures: 0 Match: 'XYZ.CoA' Number of Capturing Groups: 5 Group 0: 'XYZ.CoA' Number of Captures: 1 Capture 0: XYZ.CoA Group 1: 'XYZ' Number of Captures: 1 Capture 0: XYZ Group 2: Number of Captures: 0 Group 3: 'CoA' Number of Captures: 1 Capture 0: CoA Group 4: Number of Captures: 0 Match: 'ABC.x170' Number of Capturing Groups: 5 Group 0: 'ABC.x170' Number of Captures: 1 Capture 0: ABC.x170 Group 1: 'ABC' Number of Captures: 1 Capture 0: ABC Group 2: Number of Captures: 0 Group 3: 'x170' Number of Captures: 1 Capture 0: x170 Group 4: '0' Number of Captures: 3 Capture 0: 1 Capture 1: 7 Capture 2: 0