从要显示的文件中反序列化对象列表

Question

基本上，我创建了一个文件，用于存储来自名为 TravelRecord 的对象的序列化数据。我使用 BinaryFormatter() 序列化数据并将其存储在文件中没有问题，检索第一条记录也没有问题。我只想检索所有记录并将它们显示在 ListBox 中。

以下是一些相关代码：

     Private reader As New BinaryFormatter()
     Private input As FileStream
     input = New FileStream(fileName, FileMode.Open, FileAccess.Read)

     Dim record = CType(reader.Deserialize(input), TravelRecord)
     RequestLst.items.Add(record.toString())

这适用于返回第一条记录，但我希望它返回所有记录，以便我可以像下面这样遍历它们：

 For Each r As TravelRecord In records
            RequestLst.Items.Add(r.ToString())
        Next

我知道我可能遗漏了一些非常简单的东西，但我尝试的一切都会导致运行时错误。也可能有更好的方法来处理这个问题。

这是文件中序列化数据的样子。

  ÿÿÿÿ          DTravelRequest, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null   TravelRequest.TravelRecord   ID FirstNameLastNamePurpose    StartDateEndDateAmount   System.Guid

   ýÿÿÿSystem.Guid   _a_b_c_d_e_f_g_h_i_j_k           “ŸPªO½cùømFÚw   Steve   Robinson   Semianr  U¾Ó €æ©PÓ     @o@ @_@    ÿÿÿÿ          DTravelRequest, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null   TravelRequest.TravelRecord   ID    FirstNameLastNamePurpose    StartDateEndDateAmount   System.Guid

   ýÿÿÿSystem.Guid   _a_b_c_d_e_f_g_h_i_j_k           æ;o˜ùéAÎÜ^pñÌ   jake      Kirkbride   Stuff  l«™  Ó €CøX,Ô     À^@    ÿÿÿÿ          DTravelRequest, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null   TravelRequest.TravelRecord   ID   FirstNameLastNamePurpose    StartDateEndDateAmount   System.Guid

   ýÿÿÿSystem.Guid   _a_b_c_d_e_f_g_h_i_j_k           FP“¼Î«Gž¥5tuUš   steve    stevenson   vacation @áw%Ó @ˆ!?(Ó     @_@    ÿÿÿÿ          DTravelRequest, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null   TravelRequest.TravelRecord   ID  FirstNameLastNamePurpose    StartDateEndDateAmount   System.Guid

   ýÿÿÿSystem.Guid   _a_b_c_d_e_f_g_h_i_j_k           ‹MÆoh#D–âÑQþ…P   Steve    Stevenson   Program €œN4)Ô €CøX,Ô     @_@    ÿÿÿÿ          DTravelRequest, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null   TravelRequest.TravelRecord   ID  FirstNameLastNamePurpose    StartDateEndDateAmount   System.Guid

   ýÿÿÿSystem.Guid   _a_b_c_d_e_f_g_h_i_j_k           k$ˆµ§FŠm§Íüâ   George    Govern   Stuff €CøX,Ô €ê¡}/Ô      `@

看来我的问题是如何阅读所有这些并将它们变成一个集合，以便我可以使用它们。

这是 TravelRecord 类的代码：

    <Serializable()>
    Public Class TravelRecord

    'Class fields
    Public ID As Guid
    Public FirstName As String
    Public LastName As String
    Public Purpose As String
    Public StartDate As Date
    Public EndDate As Date
    Public Amount As Double

    Public Sub New()
        MyClass.New(Guid.Empty, String.Empty, String.Empty, String.Empty,
                    Nothing, Nothing, 0.0)
    End Sub

    Public Sub New(id As Guid, fName As String, lName As String,
                   purpose As String, startDate As Date, endDate As Date,
                   amount As Double)
        MyClass.ID = id
        MyClass.FirstName = fName
        MyClass.LastName = lName
        MyClass.Purpose = purpose
        MyClass.StartDate = startDate
        MyClass.EndDate = endDate
        MyClass.Amount = amount
    End Sub

    Public Overrides Function ToString() As String
        Return String.Format("{0,-40}{1,-10}{2,-10}{3,-15}{4,12:d}{5,12:d}{6,12:C}", _
            ID, FirstName, LastName, Purpose, StartDate, EndDate, Amount)
    End Function
End Class

---

来自 cmets：

序列化代码：

formatter.Serialize(output, travelRequest) 

其中 travelRequest 是 TravelRecord 的一个实例。

我可能需要更好地解释这一点。该系统供用户提交旅行记录。序列化设置为Append 一个新的 TravelRecord 到文件中，以充当数据库。 （这是我通常使用 SQL 的家庭作业）。反序列化是读取文件中的所有条目，并将它们显示在一个摘要列表框中。

反序列化只获取一个 TravelRecord 的原因是因为我不知道如何从文件中获取所有 TravelRecord。

有没有办法计算序列化文件中有多少项目，这样我就可以做一个有限的 For 循环之类的事情

Answer 1

你一次写一条记录：

formatter.Serialize(output, travelRequest)

因此您必须一次读回一条记录。 BinaryFomratter 将类型数据与数据 (TravelRecord) 一起存储，因此您不能将其作为集合（数组或 List(of TravelRecord)）读回，因为它无法从一种类型转换为集合类型（没有一些gyrations 我确定你不想承担）。你可以在文件中看到 Type 数据：

TravelRequest、Version=1.0.0.0、Culture=neutral、PublicKeyToken...

该文件不会被随机访问，因此要获取记录 3 或找到“Foo”，您必须执行类似的操作（例如测试用户名 =“Bob”和Exit For）。代替TravelRecord 的是一个名为NVP 的类，我碰巧有它。

Function GetListofTravelRecords() As List(Of NVP)
    Dim tmpList As New List(Of NVP)
    Dim tmp As NVP

    Using fs As New FileStream("C:\Temp\nvplst.bin", FileMode.Open)
        Dim bf As New BinaryFormatter

        Do Until fs.Position >= fs.Length
            tmp = CType(bf.Deserialize(fs), NVP)
            tmpList.Add(tmp)
        Loop

    End Using
    Return tmpList

End Function

使用与测试：

Dim mylist = GetListofTravelRecords()

For Each item In mylist
    Console.WriteLine(item.ToString)
Next

输出：

齐格 (1)
扎基 (2)
佐伊 (3)
曲折 (4)
扎基 (5)

我在里面放了 11 件东西，它们都以相同的顺序安全返回。

---

提醒其他人，serialize an entire collection 并以 as 集合的形式读回它更容易。