在VB.net中，数据去重有什么方法

' 假设我们有一个ArrayList，但我们将其转换为List(Of T)，因为HashSet<T>更适合集合操作
Dim list As New List(Of String) From {"Apple", "Banana", "Apple", "Orange", "Banana"}
' 创建一个新的HashSet，它不允许重复元素
Dim hashSet As New HashSet(Of String)
' 将列表中的元素添加到HashSet，重复的会被自动过滤
For Each item In list
    hashSet.Add(item)
Next
' 最后，将不重复的元素转换回List
Dim uniqueList As List(Of String) = hashSet.ToList()
Console.WriteLine(String.Join(", ", uniqueList)) ' 输出: Apple, Banana, Orange

' 假设我们有一个ArrayList，我们可以直接转换并使用Linq的Distinct方法
Dim arraylist As New ArrayList From {"Apple", "Banana", "Apple", "Orange", "Banana"}
Dim distinctItems As List(Of String) = (From item In arraylist.Cast(Of String)()  Select item).Distinct().ToList()
Console.WriteLine(String.Join(", ", distinctItems)) 
' 输出: Apple, Banana, Orange

Imports System.Collections.Generic
Module Module1
    Sub Main()
        ' 假设我们有一组整数，可能存在重复
        Dim numbersList As New List(Of Integer) From {1, 2, 3, 2, 4, 3, 5}
        ' 创建一个空的字典
        Dim numberDict As New Dictionary(Of Integer, Boolean)
        ' 遍历列表，尝试将每个数字作为键放入字典，如果键已存在则不会添加
        For Each num In numbersList
            If Not numberDict.ContainsKey(num) Then
                numberDict.Add(num, True)
            End If
        Next
        ' 从字典的键获取不重复的数字列表
        Dim uniqueNumbers As New List(Of Integer)(numberDict.Keys)
        ' 输出去重后的数字列表
        For Each uniqueNum In uniqueNumbers
            Console.WriteLine(uniqueNum)
        Next
        Console.ReadLine()
    End Sub
End Module