以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  集合如何删除重复项?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174544)

--  作者:wangglby
--  发布时间:2022/1/20 11:16:00
--  集合如何删除重复项?

如题

[此贴子已经被作者于2022/1/20 11:21:25编辑过]

--  作者:狐狸爸爸
--  发布时间:2022/1/20 11:22:00
--  
别用list,用hashset,自动排除重复值,你可以在命令窗口测试:

Dim t As new hashset(of String)
t.Add("a")
t.Add("a")
t.Add("b")
t.Add("b")
Return t.count

--  作者:有点蓝
--  发布时间:2022/1/20 11:22:00
--  
利用一个新的集合,遍历旧集合,如果数据不在新集合,就添加,否则跳过,最后新集合就是不重复的数据
--  作者:wangglby
--  发布时间:2022/1/20 11:42:00
--  
谢谢,学到了
--  作者:y2287958
--  发布时间:2022/1/20 11:48:00
--  
以下是引用狐狸爸爸在2022/1/20 11:22:00的发言:
别用list,用hashset,自动排除重复值,你可以在命令窗口测试:

Dim t As new hashset(of String)
t.Add("a")
t.Add("a")
t.Add("b")
t.Add("b")
Return t.count

请教狐爸:如何去获取这个hashset的各个元素?


--  作者:狐狸爸爸
--  发布时间:2022/1/20 11:51:00
--  
和list一样用法
--  作者:y2287958
--  发布时间:2022/1/20 12:01:00
--  

Dim t As new hashset(of String)
t.Add("a")
t.Add("a")
t.Add("b")
t.Add("b")
\'Return t.count


For Each tt As String In t
    Output.Show(tt)
Next

没有结果
[此贴子已经被作者于2022/1/20 12:01:20编辑过]

--  作者:有点蓝
--  发布时间:2022/1/20 12:05:00
--  
我测试没有问题
--  作者:wei0769
--  发布时间:2022/1/20 13:48:00
--  
https://docs.microsoft.com/zh-cn/previous-versions/bb397727(v=vs.110)?redirectedfrom=MSDN


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/1/20 13:51:36编辑过]