在字符窜里，怎么保证唯一值呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在字符窜里，怎么保证唯一值呢？

共有2464人关注过本帖树形打印复制链接主题：在字符窜里，怎么保证唯一值呢？

qianqian1530

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

加好友

发短信

等级：三尾狐帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00

在字符窜里，怎么保证唯一值呢？ 发帖心情

Post By：2014/11/19 21:10:00 [只看该作者]

字符窜是用 “,” 分割的。

dim des as string ="1,2,1,3,5,6,7"

1是重复的，怎么才能删除呢？

*重复可能多个

[此贴子已经被作者于2014-11-19 21:10:37编辑过]

有点甜

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

加好友

发短信

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

Post By：2014/11/19 21:13:00 [只看该作者]

Dim des As String = "1,2,1,3,5,6,7"
Dim ary() As String = des.Split(",")
Dim ls As new List(of String)
For Each s As String In ary
    If ls.Contains(s) = False Then
        ls.Add(s)
    End If
Next
msgbox(ls.count)

qianqian1530

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

加好友

发短信

等级：三尾狐帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00

Post By：2014/11/19 21:31:00 [只看该作者]

我想要的效果是这个

Dim des As String = "1,2,1,1,1,1,1,1,3,53,53,53,53,53,5,5,56,7"

Dim des2 As String

Dim ary() As String = des.Split(",")

Dim ls As new List(of String)

For Each s As String In ary

If ls.Contains(s) = False Then

ls.Add(s)

des2 + = "," & s

End If

des2 = des2.Trim(",")

msgbox(des2)

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

主题：在字符窜里，怎么保证唯一值呢？