引言
相信很多初学编程的人都会提出过这个疑问:"既然我的变量可以存在内存之中,那么是否也可以存在硬盘之中呢"
其实我想回答的是,完全可以而且方法不止一种,而今天讲的是序列化最经典的------二进制序列化
由于序列化的部分已经被新的.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类存在用户的计算机内,方便下一次修改和使用