vb.net的序列化

定义一个可以序列化的类；必须为公共字段、属性、方法；必须有一个公共的构造方法存在。
<Serializable()> Public Class UnitsSystem
'试验类型名
Public TestTypeName As String
'试验类型号
Public TestTypeBh As String
''' <summary>
''' 本试验类型所具有的所有单位体系名称
''' </summary>
''' <remarks></remarks>
Public UnitsSystemName As List(Of String)
''' <summary>
''' 纪录单位和系数的结构体
''' </summary>
''' <remarks></remarks>
Public Structure UnitsSet
Dim UnitName As String
Dim UnitCoefficient As Single
End Structure
''' <summary>
''' 单位体系集合（记录了当前试验类型所有的单位体系详细信息）
''' </summary>
''' <remarks></remarks>
Public UnitsSystemCollection As List(Of List(Of UnitsSet))
Public Sub New()


End Sub
Public Sub AddNew()
UnitsSystemName = New List(Of String)
UnitsSystemCollection = New List(Of List(Of UnitsSet))
End Sub
End Class

Imports System.IO
Imports System.Xml.Serialization
Imports System.Xml.Serialization.XmlSerializer


1.XML的序列化：
''' <summary>
''' 填充类，并序列化成文件
''' </summary>
''' <param name="FileName">序列化成的文件名</param>
''' <param name="TestTypeName">试验类型名</param>
''' <param name="TestTypeBh">试验类型编号</param>
''' <param name="UnitSystemName">单位体系名称</param>
''' <param name="List">一个单位体系集合</param>
''' <remarks></remarks>
Private Sub AddClassAndSerializationFile(ByVal FileName As String, ByVal TestTypeName As String, ByVal TestTypeBh As String, ByRef List As List(Of UnitsSet), Optional ByVal UnitSystemName As String = "标准单位体系")
Dim UnitSystemObject As UnitsSystem.UnitsSystem = DeSerializationFile(FileName)
'赋值单位体系
UnitSystemObject.TestTypeName = TestTypeName
UnitSystemObject.TestTypeBh = TestTypeBh
UnitSystemObject.UnitsSystemName.Add(UnitSystemName)
UnitSystemObject.UnitsSystemCollection.Add(List)
SerializationObject(FileName, UnitSystemObject)
UnitSystemObject = Nothing
End Sub
''' <summary>
''' 序列化
''' </summary>
''' <param name="FileName"></param>
''' <param name="UnitSystemObject"></param>
''' <remarks></remarks>
Private Sub SerializationObject(ByVal FileName As String, ByRef UnitSystemObject As UnitsSystem.UnitsSystem)
Dim writer As New System.Xml.Serialization.XmlSerializer(GetType(UnitsSystem.UnitsSystem))
Dim file As New System.IO.StreamWriter(FileName)
writer.Serialize(file, UnitSystemObject)
file.Close()
End Sub
''' <summary>
''' 反序列化文件并返回单位体系的一个对象
''' </summary>
''' <param name="FileName">反序列化的文件名</param>
''' <returns>返回一个单位体系对象</returns>
''' <remarks></remarks>
Private Function DeSerializationFile(ByVal FileName As String) As UnitsSystem.UnitsSystem
If System.IO.File.Exists(FileName) = False Then
Dim UnitSystemObject As New UnitsSystem.UnitsSystem
UnitSystemObject.AddNew()
Return UnitSystemObject
End If
Return DeSerializationObject(FileName)
End Function
''' <summary>
''' 反序列化
''' </summary>
''' <param name="FileName"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Function DeSerializationObject(ByVal FileName As String)
Dim reader As New System.Xml.Serialization.XmlSerializer(GetType(UnitsSystem.UnitsSystem))
Dim file As New System.IO.StreamReader(filename)
Dim UnitSystemObject As UnitsSystem.UnitsSystem
UnitSystemObject = CType(reader.Deserialize(file), UnitsSystem.UnitsSystem)
file.Close()
Return UnitSystemObject
End Function
对于结构体作为泛型list的一个子项；赋值这样做
Dim NodeUnit As UnitsSet
NodeUnit.UnitName = YesDW
NodeUnit.UnitCoefficient = Convert.ToSingle(YesXS)
UnitSystemObject.UnitsSystemCollection.Item(0).Item(i) = NodeUnit