Dim s = "已同意|程永军 已同意 6/16 18:33,已同意|朱峻瑶 已同意 6/18 09:36,已同意|张金鹏 已同意 6/17 08:01,已同意|李桂华 已同意 6/19 12:40,已同意|冯晓丹 已同意 6/19 13:22,已抄送|朱琳 已抄送 6/19 13:22"
Dim p As String = "(?<=已同意\|).*?(?=已同意)"
Dim rgx = new System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
For Each match As System.Text.RegularExpressions.Match In rgx.Matches(s)
Output.Show(match.Value )
Next
加好友 
发短信
Post By：2020/6/23 16:05:00 [显示全部帖子]
