当类继承列表（对象）时序列化

Question

我有一个 BOOKING 类，它继承了一个（消息的）列表 我想知道如何序列化这个。 我的 BOOKING 类包含 Message 的属性和 3 个属性，称为合作伙伴、事务和版本，

我的 Message 类有许多用于创建预订的属性，

现在当我想序列化时，我使用它

Dim z As New BOOKING
Dim x As New Message
z.partner = "company name"
z.transaction = "BOOKING"
z.version = "1.0"
x.MessageType = "C"
x.CustomerNumber = "123"
x.BookingReference = "5845"
x.CustomerBookingReference = "036598"
x.OutwardRoute = "PEMROS"
x.SailingDate = "20120107"
z.Message = x
SaveAsXML(z)

使用下面的另存为xml功能代码

Public Shared Function SaveAsXML(ByRef val As BOOKING)
    Try

        Dim objStreamWriter As New StreamWriter("c:\ftptest\New Booking\" + val.FileName)
        Dim y As New XmlSerializer(val.GetType)
        y.Serialize(objStreamWriter, val)
        objStreamWriter.Close()

        Return True
    Catch ex As Exception
        Throw ex
    End Try
End Function

知道我哪里出错了吗？

我的BOOKING类如下

Public Class BOOKING : Inherits List(Of Message)


Private Property MessageProperty As Message

<XmlAttribute>
Public Property partner As String
<XmlAttribute>
Public Property transaction As String
<XmlAttribute>
Public Property version As String


Public Property Message As Message
    Get
        Return MessageProperty
    End Get
    Set(value As Message)
        MessageProperty = value
    End Set
End Property

这里也是上面代码创建的xml。

<?xml version="1.0" encoding="utf-8"?>
<ArrayOfMessage xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" />

这是我的反序列化代码

 Try
        Dim Samples As BOOKING
        Using objStreamReader As New StreamReader(filepath) 'Path where file is
            Dim x As New XmlSerializer(GetType(BOOKING), New XmlRootAttribute("BOOKING"))
            Samples = x.Deserialize(objStreamReader)
        End Using
        Form1.DataGridView1.DataSource = Samples
        Return True
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

Answer 1

您的类结构使序列化程序感到困惑。如果Booking 继承自 List(Of Message) 那么它也有一个Message 类型为Message 的属性几乎没有意义（因为它是已经是一个消息类型）。它成为一个自我参考。我还做了一些其他问题和调整，并且序列化得很好：

Public Class BOOKING
    Public Property partner As String
    Public Property transaction As String
    Public Property version As String
    Public Property XMsgs As New List(Of XMessage)
End Class


Public Class XMessage
    Public Property A As String
    Public Property C As String
    Public Property B As String
End Class

a) Public Property Message As Message 不建议在 VB 中为属性赋予与类型相同的名称。因此我使用了 XMessage

b) 你没有正确使用 XMLAttribute。应该有几个IDE错误，XML序列化不需要它

c) 为了每个数据包处理多个消息，我将 XMsgs 更改为 List 属性。这允许一个 BOOKING 数据集用于许多消息。如果您希望每次预订 1 条消息，则不需要 2 节课，只需将其设为列表（预订）。

d) 摆脱了用作支持字段的私有属性。

测试和序列化代码：

   Dim B As New BOOKING

    B.partner = "abcdef"
    B.transaction = "12345"
    B.version = "1.00.1"
    Dim m As New XMessage

    m.A = "foo"
    m.B = "bar"
    B.XMsgs.Add(m)        ' use List prop as a List

    ' Using block to dispose of streamwriter
    Using sr As New System.IO.StreamWriter("c:\Temp\Booking.xml")
        Dim y As New Serialization.XmlSerializer(B.GetType)
        y.Serialize(sr, B)

    End Using