VB.net学习笔记（二十）XML序列化

来源：互联网发布：淘宝七匹狼官方旗舰店编辑：程序博客网时间：2024/04/27 21:18

一、XML序列化

序列化的目的：就是为了存储或传输。

通俗地说：序列化就是把一个完整的东西，拆成（精简）成一堆小的东西。

反序列化就是把一堆小东西，又复原成原来的东西。

下例，把一个实例对象序列化，拆成一个XML。

XML序列化要用到System.Xml.Serialization名称空间中的类和接口。

要把对象序列化到文档或流中时，可以使用Xmlserializer类。

注意下面定义时，VS出错时，可以用：

Dim myserializer As New Xml.Serialization.XmlSerializer(GetType(FilmOrder))

Imports System.Xml.Serialization '用于将对象序列化为 XML 格式文档或流的类Module Module1    Sub Main()        Dim serialize As XmlSerializer = New XmlSerializer(GetType(FilmOrder)) '指定序列化类型        Dim myfileorder As FilmOrder = New FilmOrder("Grease", 101, 10) '指定类型的一个实例        serialize.Serialize(Console.Out, myfileorder) '把实例序列化到流上（console.Out)        Console.WriteLine() '显示序列化的结果        Console.Read()    End SubEnd ModulePublic Class FilmOrder    Public Name As String    Public FileId As Integer    Public Quantity As Integer    Public Sub New()    End Sub    Public Sub New(ByVal name As String, ByVal fileid As Integer, ByVal quantity As Integer)        Me.Name = name        Me.FileId = fileid        Me.Quantity = quantity    End SubEnd Class

运行，可以看到实例就变成了XML（注意黄框部分）

注意： 1、最后序列化生成的XML文档，其根节点与类名相同，都是FilmOrder

2、类的每个数据成员都是XML元素。如：Name，FileId，Quantity。

3、节点后的是架构，描述文档数据。

上面只是序列化到标准流中，还要序列化到指定的Stream，TextWriter或XmlWriter中。

二、XML的反序列化

与序列化相对应的是反序列化。

前面是把对象序列化成一个XML文档。反序列化就是把XML文档来生成对象。

先准备一个XML文档：Filmorama.xml

<?xml version="1.0" encoding="utf-8" ?><FilmOrderList xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">  <FilmOrders>    <FilmOrder>      <Name>Grease</Name>      <FilmId>101</FilmId>      <Quantity>10</Quantity>    </FilmOrder>    <FilmOrder>      <Name>Lawrence of Arabia</Name>      <FilmId>102</FilmId>      <Quantity>10</Quantity>    </FilmOrder>    <FilmOrder>      <Name>Star Wars</Name>      <FilmId>103</FilmId>      <Quantity>10</Quantity>    </FilmOrder>  </FilmOrders></FilmOrderList>

这个文档可以在解决方案中添加项，来把文档加入其中，把属性设置成如果较新则复制

由于上面FilmOrder是多个，因此，我们再设计一个类，来组装FilmOrderList，实际就是前面的类的数组形式。

Imports System.XmlImports System.Xml.SerializationImports System.IOModule Module1    Sub Main()        Dim dehydrated As New FileStream("Filmorama.xml", FileMode.Open)        Dim serialize As New XmlSerializer(GetType(FilmOrderList)) '类型应明确        Dim myfileorder As New FilmOrderList        myfileorder = serialize.Deserialize(dehydrated)        Dim singleorder As FilmOrder        For Each singleorder In myfileorder.FilmOrders            Console.Out.WriteLine("{0},{1},{2}", singleorder.Name, singleorder.FilmId, singleorder.Quantity)        Next        Console.Read()    End SubEnd ModulePublic Class FilmOrder    Public Name As String    Public FilmId As Integer    Public Quantity As Integer    Public Sub New()    End Sub    Public Sub New(ByVal name As String, ByVal filmid As Integer, ByVal quantity As Integer)        Me.Name = name        Me.FilmId = filmid        Me.Quantity = quantity    End SubEnd ClassPublic Class FilmOrderList    Public FilmOrders() As FilmOrder    Public Sub New()    End Sub    Public Sub New(ByVal orders() As FilmOrder)        Me.FilmOrders = orders    End SubEnd Class

三、源代码样式属性

如果我们生成的XML包含属性（Attibute）时，什么办？

可以用<XMLAttribute("XXX")> 来指明对象中的数据为属性。

如果我们生成的XML元素，要更改对象中的数据名怎么办？

可以用<XMLElement("XXX")> 来指明对应的数据名更名为XXX

Imports System.XmlImports System.Xml.SerializationImports System.IOModule Module1    Sub Main()        Dim serializer As New XmlSerializer(GetType(FilmOrder))        Dim fi As New FilmOrder("OK", 100, 100)        serializer.Serialize(Console.Out, fi)        Console.Out.WriteLine()        Console.Read()    End SubEnd ModulePublic Class FilmOrder    <XmlElement("Title")> Public Name As String   '序列化生成XML时，Name元素将变成Title元素    <XmlElement("Id")> Public FilmId As Integer    <XmlElement("Qty")> Public Quantity As Integer    Public Sub New()    End Sub    Public Sub New(ByVal name As String, ByVal filmid As Integer, ByVal quantity As Integer)        Me.Name = name        Me.FilmId = filmid        Me.Quantity = quantity    End SubEnd Class

修改上面的类代码，再运行如下：