Wie kann ein Wörterbuch oder ein Listenfeld wirklich dupliziert werden?

Question

Ich habe ein Wörterbuch

Dim List4x As Dictionary(Of Byte, List(Of Byte)) = DuplicateDic(ByteList4) 

Public Shared Function DuplicateDic(ByVal List As Dictionary(Of Byte, List(Of Byte))) As Dictionary(Of Byte, List(Of Byte)) 
    Dim kv As New Dictionary(Of Byte, List(Of Byte)) 
    For Each itm As KeyValuePair(Of Byte, List(Of Byte)) In List 
     kv.Add(itm.Key, itm.Value) 
    Next 
    Return kv 
End Function 

Wenn ich in der alten Liste meiner neuen Liste Clearing eins nach dem anderen Elemente zu entfernen ..

Wie ein Wörterbuch oder eine Liste Array realen duplizieren?

Dank

Answer 1

Sie eine neue Liste benötigen, andernfalls sind beide Listen gleichen und wenn Sie es aus der Liste entfernen 2 Sie werden es auch aus der Liste 1 entfernen, weil List(Of T) eine Art Referenz. Sie können this list constructor verwenden:

Public Shared Function DublicateList(ByVal List As Dictionary(Of Byte, List(Of Byte))) As Dictionary(Of Byte, List(Of Byte)) 
    Dim kv As New Dictionary(Of Byte, List(Of Byte)) 
    For Each itm As KeyValuePair(Of Byte, List(Of Byte)) In List 
     Dim newList As New List(Of Byte)(itm.Value) ' <----- HERE !!! 
     kv.Add(itm.Key, newList) 
    Next 
    Return kv 
End Function