这个字符串的比较代码怎么写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个字符串的比较代码怎么写

共有2360人关注过本帖树形打印复制链接主题：这个字符串的比较代码怎么写

YDS

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：634 积分：3634 威望：0 精华：0 注册：2011/5/21 18:05:00

这个字符串的比较代码怎么写 发帖心情

Post By：2018/9/5 12:56:00 [只看该作者]

日期	报餐	用餐	报餐未用餐	用餐未报餐
2018/9/5	张三，李四，王五	李四，王五，赵六

报餐表如上图

1.有新报餐的时候可以检索名字是否存在，不存在添加，这个代码好写，但是已经存在了怎么去掉？如果这个人排在第一个，要删除【姓名加逗号】如果排在最后一个要删除【逗号加姓名】如果只有一个人直接清空如果人多又不在上述情况则删除【逗号加姓名】，这样的逻辑有没有简单的代码可以实现？

2.如何对报餐和用餐列进行对比，名字在报餐不在用餐的添加到报餐未用餐

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/5 13:07:00 [只看该作者]

Dim ls1 = "1,2,3".split(",")
Dim ls2 = "aa,1,2,cc".split(",")
Dim s1 As String = ""
For Each s As String In ls2
    If array.Indexof(ls1, s) < 0 Then
        s1 &= s & ","
    End If
Next
msgbox(s1)

YDS

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：634 积分：3634 威望：0 精华：0 注册：2011/5/21 18:05:00

Post By：2018/9/5 13:21:00 [只看该作者]

非常感谢，那第一点要求有没有简单一点的代码

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/5 15:10:00 [只看该作者]

怎么比较，输入什么，比较什么，最后得到什么？

Dim s1 As String = "aaa,bbb,ccc"
Dim s2 As String = "bbb1"
If s1.contains(s2) = False Then
s1 = s1 & "," & s2
End If
msgbox(s1)

YDS

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：634 积分：3634 威望：0 精华：0 注册：2011/5/21 18:05:00

Post By：2018/9/5 15:41:00 [只看该作者]

此主题相关图片如下：tim截图20180905153656.jpg

有新的报餐更改的时候如果是新增报餐，在【报餐】列检索该名字是否存在，不存在则添加，如果是删除报餐，就是名字在【报餐】列已经存在了要怎么去掉？如果这个人排在第一个，要删除【姓名加逗号】如果排在最后一个要删除【逗号加姓名】如果只有一个人直接清空如果人多又不在上述情况则删除【逗号加姓名】，这样的逻辑有没有简单的代码可以实现？

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/5 15:44:00 [只看该作者]

请直接说，在哪里输入什么，最后得到什么？怎么比较？

YDS

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：634 积分：3634 威望：0 精华：0 注册：2011/5/21 18:05:00

Post By：2018/9/5 16:01:00 [只看该作者]

此主题相关图片如下：0011.jpg

就是在这个页面有新的报餐更改的时候如果是新增报餐，在【报餐】列检索该名字是否存在，不存在则添加，如果是删除报餐，就是名字在【报餐】列已经存在了要怎么去掉？如果这个人排在第一个，要删除【姓名加逗号】如果排在最后一个要删除【逗号加姓名】如果只有一个人直接清空如果人多又不在上述情况则删除【逗号加姓名】，这样的逻辑有没有简单的代码可以实现？

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/5 16:12:00 [只看该作者]

参考代码

Dim s1 As String = "aaa,bbb,ccc"
Dim s2 As String = "bbb1"
If s1.contains(s2) = False Then
s1 = s1 & "," & s2
End If
msgbox(s1)

YDS

小大 9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：634 积分：3634 威望：0 精华：0 注册：2011/5/21 18:05:00

Post By：2018/9/5 16:13:00 [只看该作者]

以下是引用有点甜在2018/9/5 16:12:00的发言：

参考代码

Dim s1 As String = "aaa,bbb,ccc"
Dim s2 As String = "bbb1"
If s1.contains(s2) = False Then
s1 = s1 & "," & s2
End If
msgbox(s1)

如果报餐以后又想去掉呢？

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/5 16:56:00 [只看该作者]

删掉的参考

Dim s1 As String = "aaa,bbb,ccc"
Dim s2 As String = "aaa"
If s1.contains(s2) Then
s1 = ("," & s1 & ",").Replace("," & s2 & ",", ",")
End If
msgbox(s1.trim(","))

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：这个字符串的比较代码怎么写