数组去除重复

[liuxiaoboQQ]

{"a,23sd44", "a,23s5sf4", "bb,sd2364", "a,2f534", "bb,2sfds434"}
数组求去除重复（只考虑逗号前）保留最后出现的。结果
{ "a,2f534", "bb,2sfds434"}

重点，逗号之后的不考虑，保留最后出现的不是第一次出现的值

[liuxiaoboQQ]

百度了一个数组处理的方法，可以去除重复但是保留的是第一次出现的数据，我需要保留最后出现的数据。 听人说用字典树 但是不知道是什么

[楚狂歌]

打错了，是Dictionary dim value as string DeviceCollection.Item("a") =value

[楚狂歌]

就是Directory啊，每次插入新值前判断键值是否存在

Private DeviceCollection As new Dictionary(Of String, String)
 If Not DeviceCollection.ContainsKey("a") Then
DeviceCollection.Add("a",value)
else
DeviceCollection.Item("a").value =value
end if

[娃都会打酱油了]

string[] arr = { "a,23sd44", "a,23s5sf4", "bb,sd2364", "a,2f534", "bb,2sfds434" };
foreach (var str in arr.GroupBy(s => s.Split(',')[0]).Select(g => g.Last()))
{
    Console.WriteLine(str);
}

[无涯大者]

http://www.codeceo.com/article/javascript-delete-array.html

[gxhsx]

string[] arr = { "a,23sd44", "a,23s5sf4", "bb,sd2364", "a,2f534", "bb,2sfds434" }; System.Collections.Hashtable ht = new System.Collections.Hashtable(); for (int i = 0; i < arr.Length; i++) { ht[(arr[i].Split(','))[0]] = arr[i]; }

[mjzxlmg]

Sub test()
        Dim dic As New Dictionary(Of String, String)
        Dim arr() As String = {"a,23sd44", "a,23s5sf4", "bb,sd2364", "a,2f534", "bb,2sfds434"}
        For i As Integer = 0 To UBound(arr)
            dic(Split(arr(i), ",")(0)) = arr(i)
        Next
        Dim brr() As String = dic.Values.ToArray
        MsgBox(Join(brr, ","))
    End Sub