然后是生成数组内容: dim i as integer for i = 0 to 10 nums(i) = int(rnd() * 500) + 100 next
序列化是通过formatter对象来实现的。我们要新建一个formatter对象: dim sfformatter as new system.runtime.serialization.formatters.binary.binaryformatter binaryformatter是进行二进制序列化的。其它的序列化方式你可以在runtime.serialization.formatters中找到。
我们还要有一个流来作为序列化的输出: dim fstream as new filestream(“1.dat”, filemode.create)
反序列化的方式大同小异,只不过调用的是formatter的deserialize方法。代码是这样的: private sub deserialize() dim fstream as new filestream(“1.dat”, filemode.open) dim sfformatter as new system.runtime.serialization.formatters.binary.binaryformatter nums = sfformatter.deserialize(fstream) fstream.close() end sub