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

引言

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

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

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

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

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

<Serializable>

否则你将会看到这种情况

2、实操一下（序列化）

Imports System.IO
Imports System.Runtime.Serialization.Formatters.BinaryModule Module1Sub Main()DoDim a As String = "qwert"Dim b As New Class1Select Case Console.ReadLine()Case 1Dim fs = New FileStream("J:\桌面文件\a.bin", FileMode.Create)Dim bf = New BinaryFormatterbf.Serialize(fs, a)fs.Close()Case 2Dim fs = New FileStream("J:\桌面文件\b.bin", FileMode.Create)Dim bf = New BinaryFormatterbf.Serialize(fs, b)fs.Close()End SelectLoopEnd SubEnd Module
<Serializable>
Class Class1Dim a As String = "asd"Dim b As String = "dfg"
End Class

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

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

即（示例代码，被标记后的代码都会隐藏此报错代码的错误）

#Disable Warning SYSLIB0011Public Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.ClickDim fs = New FileStream(Application.StartupPath & "\Layer.bin", FileMode.Create)Dim bf = New BinaryFormatterbf.Serialize(fs, Layers)fs.Close()End SubPublic Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.ClickDim fs = New FileStream(Application.StartupPath & "\Layer.bin", FileMode.Open)Dim bf = New BinaryFormatterDim l = bf.Deserialize(fs)Layers = lreLoad()fs.Close()End Sub

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

3、打开（反序列化）

和序列化一样，非常简单

Imports System.IO
Imports System.Runtime.Serialization.Formatters.BinaryModule Module1Sub Main()DoDim a As String = "qwert"Dim b As New Class1Select Case Console.ReadLine()Case 1'''               Case 2'''Case 3Dim fs = New FileStream("J:\桌面文件\a.bin", FileMode.Open)Dim bf = New BinaryFormatterDim a1 = bf.Deserialize(fs)Console.WriteLine(a1)fs.Close()Case 4Dim fs = New FileStream("J:\桌面文件\b.bin", FileMode.Open)Dim bf = New BinaryFormatterDim b1 = bf.Deserialize(fs)Console.WriteLine(b1)fs.Close()End SelectLoopEnd SubEnd Module
<Serializable>
Class Class1Dim a As String = "asd"Dim b As String = "dfg"
End Class

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