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编辑过]