VB.NET：將Hashtable轉換爲具有通用值類型的字典

Question

如何才能將Hashtable轉換爲Dictionary保持通用值？我的想法是有一個像下面這樣的函數：

Public Function Hashtable2Dictionary(Of T)(ht As Hashtable) As Dictionary(Of String, T) 
    ' do conversion here 
End Function 

Answer 1

也許：

Public Function Hashtable2Dictionary(Of T)(ht As Hashtable) As Dictionary(Of String, T) 
    If ht Is Nothing Then Return Nothing 
    Dim dict = New Dictionary(Of String, T)(ht.Count) 
    For Each kv As DictionaryEntry In ht 
     dict.Add(kv.Key.ToString(), CType(ht(kv.Value), T)) 
    Next 
    Return dict 
End Function 

不能直接投下Hashtable到Dictionary。您可以嘗試將HashTable中的每個對象投射到T（CType使用一些技巧獲取所需的類型，例如String到Int32）。如果不能鑄造到目標類型，則會引發InvalidCastException。

爲什麼你需要它？也許有更好的方法來實現你想要的。一般來說，您應該避免使用非通用集合，如ArrayList或HashTable。