以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎样合并两个集合并去重  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195755)
--  作者：wldhj
--  发布时间：2025/3/6 17:47:00
--  [求助]怎样合并两个集合并去重
怎样合并两个集合并去重
--  作者：y2287958
--  发布时间：2025/3/6 18:28:00
--  
Union
--  作者：有点蓝
--  发布时间：2025/3/6 20:10:00
--  
Dim Names As New List(Of String) From {"苹果", "香蕉", "葡萄"}
Dim Names2 As New List(Of String) From {"苹果", "橙子", "西瓜"}
For Each s As String In Names2
    If Names.Contains(s) = False Then
        Names.Add(s)
    End If 
Next
Output.Show(String.Join(",", Names.ToArray))

如果使用linq的语法，网上搜搜，现在的AI都有很多答案的，除了union还比如：https://www.baidu.com/s?wd=vb.net%20%E4%B8%A4%E4%B8%AA%E9%9B%86%E5%90%88%E5%90%88%E5%B9%B6%E5%8E%BB%E9%87%8D

Dim Names As New List(Of String) From {"苹果", "香蕉", "葡萄"}
Dim Names2 As New List(Of String) From {"苹果", "橙子", "西瓜"}
Names.AddRange(Names2)
Names = Names.Distinct().ToList
Output.Show(String.Join(",", Names.ToArray))