16,554
社区成员
发帖
与我相关
我的任务
分享
Dim mc As MatchCollection = Regex.Matches(yourStr, "<a[^<>]*>\s*(?<name>((?!</a>)[\s\S])+?)\s*</a>\s*(?<sex>[^<>(]+)((?<duty>[^)]+))")
For Each m As Match In mc
RichTextBox2.Text += m.Groups("name").Value & vbCrLf
RichTextBox2.Text += m.Groups("sex").Value & vbCrLf
RichTextBox2.Text += m.Groups("duty").Value & vbCrLf
Next
Dim mc As MatchCollection = Regex.Matches(yourStr, "<a[^>]*>\s*(?<name>[\s\S]+?)\s*</a>\s*(?<sex>[^(]+)((?<duty>[^)]+))")
For Each m As Match In mc
RichTextBox2.Text += m.Groups("name").Value & vbCrLf
RichTextBox2.Text += m.Groups("sex").Value & vbCrLf
RichTextBox2.Text += m.Groups("duty").Value & vbCrLf
Next