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