如何將System.Collections.Specialized.NameValueCollection實例保存到硬盤並作爲實例加載回來？

Question

我有以下System.Collections.Specialized.NameValueCollection實例：

Dim UserSelection As New System.Collections.Specialized.NameValueCollection 

UserSelection.Add("D_Color1", "Black") 
UserSelection.Add("D_Color2", "Green") 
UserSelection.Add("D_Color3", "Purple") 

我需要保存這個實例的硬盤，然後加載它從硬盤恢復作爲一個實例。我怎麼做？

Answer 1

隨着BinaryFormatter的

Using fs As New FileStream("DataFile.dat", FileMode.Create) 
    Dim formatter As New BinaryFormatter 
    formatter.Serialize(fs, UserSelection) 
End Using 

和反序列化

Using fs As New FileStream("DataFile.dat", FileMode.Open) 
    Dim formatter As New BinaryFormatter 
    UserSelection = DirectCast(formatter.Deserialize(fs), NameValueCollection) 
End Using 

Answer 2

通過對Serializible的魔力，你可以寫一個集合序列化格式，即保存到磁盤，把它在網絡上，無論如何，然後將其反序列化爲一個新的NameValueCollection實例。由於Serializable的寫法，你可以控制它是如何被持久化的。爲了讓它序列化爲XML，你必須編寫（或谷歌）一小段代碼，其中implements IXmlSerializable for a NameValueCollection。序列化到binary開箱即用：

Dim fs as New FileStream("MyNameValueCollection.bin", FileMode.Create) 
Dim bs as New BinaryFormatter() 
bs.Serialize(fs, UserSelection) 
fs.Close()