Foxtable(狐表)用户栏目专家坐堂 → 如何在表数据输入重复字段后自动删除其中重复的值


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

主题:如何在表数据输入重复字段后自动删除其中重复的值

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


加好友 发短信
等级:童狐 帖子:243 积分:1819 威望:0 精华:0 注册:2016/1/21 12:44:00
如何在表数据输入重复字段后自动删除其中重复的值  发帖心情 Post By:2017/8/30 8:24:00 [只看该作者]

如何在表数据输入重复字段后自动删除其中重复的值
dim str = "A1|A1|A1|B1|B1|C1"

查找删除重复字符


str = "A1|B1|C1“


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/30 8:38:00 [只看该作者]

Dim str = "A1|A1|A1|B1|B1|C1"
Dim ls As new List(Of String)
For Each s As String In str.split("|")
    If ls.Contains(s) = False Then
        ls.add(s)
    End If
Next
str = String.join("|", ls.ToArray)
msgbox(str)

 回到顶部