VB.NET序列化实现方式简单介绍(VB.NET序列化实现方法入门指南)

原创

ithorizon 6个月前 (10-20) 阅读数 22 #后端开发

VB.NET序列化是一种将对象状态信息成为可以存储或传输的形式的过程。序列化允许开发者在应用程序间共享对象数据，或者将对象状态保存到文件、数据库等持久化存储中。以下是VB.NET序列化实现的简洁介绍，我们将从入门到实践，一步步了解序列化的各种实现方法。

一、序列化的概念与作用

序列化可以将对象状态成为字节流，反序列化则是将字节流还原为对象状态。在VB.NET中，序列化核心用于以下场景：

网络通信：在网络中传输对象数据。

持久化存储：将对象状态保存到文件、数据库等。

远程处理：在不同应用程序间共享对象。

二、VB.NET序列化实现方法

VB.NET提供了多种序列化实现方法，下面将分别介绍。

1. 二进制序列化

二进制序列化是VB.NET中最基本的序列化方法，使用System.Runtime.Serialization.Formatters.Binary命名空间下的BinaryFormatter类来实现。

Imports System.Runtime.Serialization.Formatters.Binary

Public Class Program

Public Shared Sub Main()

Dim obj As New MyClass()

obj.Name = "张三"

obj.Age = 25

' 创建BinaryFormatter实例

Dim formatter As New BinaryFormatter()

' 序列化对象

Using fileStream As New FileStream("obj.dat", FileMode.Create)

formatter.Serialize(fileStream, obj)

End Using

' 反序列化对象

Using fileStream As New FileStream("obj.dat", FileMode.Open)

Dim deserializedObj As MyClass = DirectCast(formatter.Deserialize(fileStream), MyClass)

Console.WriteLine(deserializedObj.Name & " - " & deserializedObj.Age)

End Using

End Sub

End Class

Public Class MyClass

Public Name As String

Public Age As Integer

End Class

2. XML序列化

XML序列化将对象状态成为XML格式，使用System.Xml.Serialization命名空间下的XmlSerializer类来实现。


Imports System.Xml.Serialization
Public Class Program
    Public Shared Sub Main()
        Dim obj As New MyClass()
        obj.Name = "张三"
        obj.Age = 25
        ' 创建XmlSerializer实例
        Dim serializer As New XmlSerializer(GetType(MyClass))
        ' 序列化对象
        Using fileStream As New FileStream("obj.xml", FileMode.Create)
            serializer.Serialize(fileStream, obj)
        End Using
        ' 反序列化对象
        Using fileStream As New FileStream("obj.xml", FileMode.Open)
            Dim deserializedObj As MyClass = DirectCast(serializer.Deserialize(fileStream), MyClass)
            Console.WriteLine(deserializedObj.Name & " - " & deserializedObj.Age)
        End Using
    End Sub
End Class
Public Class MyClass
     _
    Public Name As String
     _
    Public Age As Integer
End Class

3. JSON序列化

JSON序列化将对象状态成为JSON格式，使用Newtonsoft.Json命名空间下的JsonConvert类来实现。首先需要引入Newtonsoft.Json库。


Imports Newtonsoft.Json
Public Class Program
    Public Shared Sub Main()
        Dim obj As New MyClass()
        obj.Name = "张三"
        obj.Age = 25
        ' 序列化对象
        Dim json As String = JsonConvert.SerializeObject(obj)
        File.WriteAllText("obj.json", json)
        ' 反序列化对象
        Dim deserializedObj As MyClass = JsonConvert.DeserializeObject(Of MyClass)(json)
        Console.WriteLine(deserializedObj.Name & " - " & deserializedObj.Age)
    End Sub
End Class
Public Class MyClass
    Public Property Name As String
    Public Property Age As Integer
End Class

4. 自定义序列化

在某些特殊情况下，以上序列化方法大概无法满足需求，此时可以自定义序列化方法。自定义序列化通常通过实现ISerializable接口来实现。


Imports System.Runtime.Serialization
Public Class MyClass
    Implements ISerializable
    Public Name As String
    Public Age As Integer
    ' 序列化方法
    Public Sub GetObjectData(info As SerializationInfo, context As StreamingContext) Implements ISerializable.GetObjectData
        info.AddValue("Name", Name)
        info.AddValue("Age", Age)
    End Sub
    ' 反序列化构造函数
    Public Sub New(info As SerializationInfo, context As StreamingContext)
        Name = info.GetString("Name")
        Age = info.GetInt32("Age")
    End Sub
    ' 默认构造函数
    Public Sub New()
    End Sub
End Class
Public Class Program
    Public Shared Sub Main()
        Dim obj As New MyClass()
        obj.Name = "张三"
        obj.Age = 25
        ' 创建BinaryFormatter实例
        Dim formatter As New BinaryFormatter()
        ' 序列化对象
        Using fileStream As New FileStream("obj.dat", FileMode.Create)
            formatter.Serialize(fileStream, obj)
        End Using
        ' 反序列化对象
        Using fileStream As New FileStream("obj.dat", FileMode.Open)
            Dim deserializedObj As MyClass = DirectCast(formatter.Deserialize(fileStream), MyClass)
            Console.WriteLine(deserializedObj.Name & " - " & deserializedObj.Age)
        End Using
    End Sub
End Class