VB.net序列化和反序列化的使用方法和实用场景

引言

相信很多初学编程的人都会提出过这个疑问:"既然我的变量可以存在内存之中,那么是否也可以存在硬盘之中呢"

其实我想回答的是,完全可以而且方法不止一种,而今天讲的是序列化最经典的------二进制序列化

由于序列化的部分已经被新的.net弃用了,但是你只要明确一点,弃用不代表不可以用,以下是教学步骤

1、编写类型,或者是结构或者是一个变量

在存储单个.net变量时,一般都是被.NET程序员标记为可序列化的,然而自己写的类的变量则需要在类的头上加上这么一句话

vbnet 复制代码
<Serializable>

否则你将会看到这种情况

2、实操一下(序列化)

vbnet 复制代码
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Module Module1

    Sub Main()
        Do
            Dim a As String = "qwert"
            Dim b As New Class1
            Select Case Console.ReadLine()
                Case 1
                    Dim fs = New FileStream("J:\桌面文件\a.bin", FileMode.Create)
                    Dim bf = New BinaryFormatter
                    bf.Serialize(fs, a)
                    fs.Close()
                Case 2
                    Dim fs = New FileStream("J:\桌面文件\b.bin", FileMode.Create)
                    Dim bf = New BinaryFormatter
                    bf.Serialize(fs, b)
                    fs.Close()
            End Select
        Loop
    End Sub

End Module
<Serializable>
Class Class1
    Dim a As String = "asd"
    Dim b As String = "dfg"
End Class

但是,请你注意,如果你是WinForm的开发者你将会面临一个新的问题:

翻译过来就是已经被弃用了,需要加一个标签来阻止报错 #Disable Warning SYSLIB0011

即(示例代码,被标记后的代码都会隐藏此报错代码的错误)

vbnet 复制代码
#Disable Warning SYSLIB0011
    
    Public Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim fs = New FileStream(Application.StartupPath & "\Layer.bin", FileMode.Create)
        Dim bf = New BinaryFormatter
        bf.Serialize(fs, Layers)
        fs.Close()
    End Sub

    Public Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim fs = New FileStream(Application.StartupPath & "\Layer.bin", FileMode.Open)
        Dim bf = New BinaryFormatter

        Dim l = bf.Deserialize(fs)
        Layers = l
        reLoad()
        fs.Close()
    End Sub

很好,此时你的变量已经被存在桌面了

3、打开(反序列化)

和序列化一样,非常简单

vbnet 复制代码
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Module Module1

    Sub Main()
        Do
            Dim a As String = "qwert"
            Dim b As New Class1
            Select Case Console.ReadLine()
                Case 1
                    '''               
                Case 2
                    '''
                Case 3
                    Dim fs = New FileStream("J:\桌面文件\a.bin", FileMode.Open)
                    Dim bf = New BinaryFormatter

                    Dim a1 = bf.Deserialize(fs)
                    Console.WriteLine(a1)
                    fs.Close()
                Case 4
                    Dim fs = New FileStream("J:\桌面文件\b.bin", FileMode.Open)
                    Dim bf = New BinaryFormatter

                    Dim b1 = bf.Deserialize(fs)
                    Console.WriteLine(b1)
                    fs.Close()
            End Select

        Loop
    End Sub


End Module
<Serializable>
Class Class1
    Dim a As String = "asd"
    Dim b As String = "dfg"
End Class

输入2后,输入4的结果(由于并没有对class1做内部值的提取,故返回类名)

4、应用场景

1、在游戏

角色的位置,角色的状态,物体的状态都可以通过序列化来保存,方便第二次登录时的读取,唯一不方便的是后期数据出错维护起来麻烦(程序员可以编写对应类型的编辑器程序来维护这些可能出错的文件)

2、Socket网络编程

在进行.net的网络通信中,一个一个字节头文件识别起来非常麻烦,而且出错几率极高,而直接使用序列化后的文件传输将会大大减少编程难度和出错几率

3、对于特定类型文件的存储

例如我开发了一个CAD交互系统,我想存储所有的CAD变量,那么最简单的就是直接把自己编写的CAD类存在用户的计算机内,方便下一次修改和使用

相关推荐
不吃肘击1 天前
SpringMVC中自定义消息转换器处理响应和请求时的Json数据序列化的格式
java·spring·json·序列化·反序列化·消息转换器
qq_340474029 天前
4.1.1 类的序列化与反序列化(XmlSerializer)
序列化·xmlserializer
SuperherRo14 天前
Web开发-JavaEE应用&原生和FastJson反序列化&URLDNS链&JDBC链&Gadget手搓
java·java-ee·jdbc·fastjson·反序列化·urldns
ALe要立志成为web糕手19 天前
PHP反序列化
web安全·网络安全·php·反序列化
专注VB编程开发20年21 天前
C#.NET模拟用户点击按钮button1.PerformClick自动化测试
开发语言·自动化测试·c#·vb.net
专注VB编程开发20年24 天前
写.NET可以指定运行SUB MAIN吗?调用任意一个里面的类时,如何先执行某段初始化代码?
开发语言·vb.net
专注VB编程开发20年24 天前
WebView2最低支持.NET frame4.5,win7系统
c#·.net·webview2·vb.net
专注VB编程开发20年24 天前
C#,VB.NET正则表达式法替换代码
正则表达式·c#·.net·vb.net
专注VB编程开发20年1 个月前
Aspose.words,Aspose.cells,vb.net,c#加载许可证,生成操作选择:嵌入的资源
c#·word·.net·vb.net