如何将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()