以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个字符串处理的难题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151450)
--  作者：czy66ds
--  发布时间：2020/6/23 15:53:00
--  一个字符串处理的难题
假设字符串如下：
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"
需要据此生成新的字符串
s=“程永军，朱峻瑶，张金鹏，李桂华”
能办到吗？
--  作者：y2287958
--  发布时间：2020/6/23 16:04:00
--  
Dim s As String = "已同意|程永军 已同意 6/16 18:33,已同意|朱峻瑶 已同意 6/18 09:36,已同意|张金鹏 已同意 6/17 08:01,已同意|李桂华 已同意 6/19 12:40,已同意|冯晓丹 已同意 6/19 13:22,已抄送|朱琳 已抄送 6/19 13:22"
For Each st As String In s.Replace("已同意|",chr(11)).split(chr(11))
    Output.Show(st.split(" ")(0))
Next
[此贴子已经被作者于2020/6/23 16:12:04编辑过]
--  作者：有点蓝
--  发布时间：2020/6/23 16:05:00
--  
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
--  作者：czy66ds
--  发布时间：2020/6/23 17:52:00
--  
测试通过！
谢谢蓝版 谢谢y2287958

你们太厉害了！