Question

VB.net中如何将正则表达式小括号中的内容提取出来？

比如正则表达式为
SearchPattern="(.+)a(.+)c(.+)"
Dim Regex As System.Text.RegularExpressions.Regex
Regex = New System.Text.RegularExpressions.Regex(SearchPattern)
Dim Matchs As System.Text.RegularExpressions.MatchCollection
Dim IsMatch As Boolean = Regex.IsMatch(StrForSearch)
Matchs = Regex.Matches("China Public National") ，执行了此句之后，如何将SearchPattern中的指定的 那个三个小括号对应的内容即SubMatches(0)="Chin" SubMatches(1)=" Publi" SubMatches(2)=" National" 提取出来呢？
我用如下 ，提取不出来呢！
For Each Mt In Matchs
On Error Resume Next
S = S & Macth.Groups(0).Value & Chr(0)
Next
哦。原来 Matchs.Count 相当于vb6的Mhs.count
Matchs.Item(i).Groups.Item(j).Value相当于vb6的Mh.SubMatches(j)

Answer 1

MatchCollection
Dim IsMatch As Boolean = Regex，如何将SearchPattern中的指定的 那个三个小括号对应的内容即SubMatches(0)=".RegularExpressions.Groups(0);) ！
For Each Mt In Matchs
On Error Resume Next
S = S & Macth; Publi" SubMatches(2)=".RegularExpressions; SubMatches(1)=".Matches("，提取不出来呢;Chin".RegularExpressions.Regex(SearchPattern)
Dim Matchs As System;China Public National".+)"？
我用如下 ; 提取出来呢.Text.Regex
Regex = New System; National".IsMatch(StrForSearch)
Matchs = Regex.+)c(，执行了此句之后;(.Text.Text.+)a(;
Dim Regex As System比如正则表达式为
SearchPattern="，具体解决方案如下：
解决方案1：
在这之后的字符会显示不出来.RegularExpressions.Regex(SearchPattern)
Dim Matchs As System;Groups集合索引从0开始.Item(i)，但是第一项是完整匹配项，这个是字符串的结束标记.+)c(，接下去才是子项
S = S & .Text;"Dim IsMatch As Boolean = Regex.RegularExpressions，但是不要用Chr(0).Regex
Regex = New System;China Public National".RegularExpressions.Value & vbcrlf
Next
也是可以的;
With Matchs; ".Count - 1 '.Text.MatchCollection
'.+)".IsMatch(StrForSearch)
Matchs = Regex：
For Each Mt In Matchs.groups
S = S & Mt.Item(0);
Next
End With
MsgBox(S)

你的循环改成.Matches(")
Dim S As String = "
Dim Regex As System.Item(0).Value & "Dim SearchPattern As String = ".Text.Groups
For i As Integer = 1 To ;(.+)a(
提问者评价
多谢指教！
解决方案2：
Dim SearchPattern As String = "(.+)a(.+)c(.+)"
Dim Regex As System.Text.RegularExpressions.Regex
Regex = New System.Text.RegularExpressions.Regex(SearchPattern)
Dim Matchs As System.Text.RegularExpressions.MatchCollection
'Dim IsMatch As Boolean = Regex.IsMatch(StrForSearch)
Matchs = Regex.Matches("China Public National")
Dim S As String = ""
With Matchs.Item(0).Groups
For i As Integer = 1 To .Count - 1 'Groups集合索引从0开始，但是第一项是完整匹配项，接下去才是子项
S = S & .Item(i).Value & " "
Next
End With
MsgBox(S)
解决方案3：
Dim matches As MatchCollection = rx.Matches("(.*)")

Answer 2

Dim SearchPattern As String = "(.+)a(.+)c(.+)"
Dim Regex As System.Text.RegularExpressions.Regex
Regex = New System.Text.RegularExpressions.Regex(SearchPattern)
Dim Matchs As System.Text.RegularExpressions.MatchCollection
'Dim IsMatch As Boolean = Regex.IsMatch(StrForSearch)
Matchs = Regex.Matches("China Public National")
Dim S As String = ""
With Matchs.Item(0).Groups
For i As Integer = 1 To .Count - 1 'Groups集合索引从0开始，但是第一项是完整匹配项，接下去才是子项
S = S & .Item(i).Value & " "
Next
End With
MsgBox(S)

你的循环改成：
For Each Mt In Matchs.Item(0).groups
S = S & Mt.Value & vbcrlf
Next
也是可以的，但是不要用Chr(0)，这个是字符串的结束标记，在这之后的字符会显示不出来。

Answer 3

Dim SearchPattern As String = "(.+)a(.+)c(.+)"
Dim Regex As System.Text.RegularExpressions.Regex
Regex = New System.Text.RegularExpressions.Regex(SearchPattern)
Dim Matchs As System.Text.RegularExpressions.MatchCollection
'Dim IsMatch As Boolean = Regex.IsMatch(StrForSearch)
Matchs = Regex.Matches("China Public National")
Dim S As String = ""
With Matchs.Item(0).Groups
For i As Integer = 1 To .Count - 1 'Groups集合索引从0开始，但是第一项是完整匹配项，接下去才是子项
S = S & .Item(i).Value & " "
Next
End With
MsgBox(S)

Answer 4

Dim matches As MatchCollection = rx.Matches("(.*)")

Answer 5

DSK JGEwyIJE B32wpw39itw908nu9iewnu geiuxz329QU 9'

78y2

 ir u(g hiwWQ T#Q