Foxtable(狐表)用户栏目专家坐堂 → 一个字符串处理的难题


  共有3205人关注过本帖树形打印复制链接

主题:一个字符串处理的难题

帅哥哟,离线,有人找我吗?
czy66ds
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1691 积分:16460 威望:0 精华:0 注册:2013/7/31 13:03:00
一个字符串处理的难题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4755 积分:34583 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1691 积分:16460 威望:0 精华:0 注册:2013/7/31 13:03:00
  发帖心情 Post By:2020/6/23 17:52:00 [只看该作者]

测试通过!
谢谢 谢谢y2287958

你们太厉害了!

 回到顶部