必威注册电子书籍教程中心网文荟萃客户留言繁體中文
设为首页
加入收藏
联系必威注册
您当前的位置:必威注册 -> 教程中心 -> 编程经验 -> JAVA DotNet -> 教程内容 退出登录 用户管理
栏目导航
· Visual Basic· Delphi
· Visual C++· C++ Builder
· JAVA DotNet· 其他相关
热门教程
· 如何在Visual Basic...
· 使用Visual Basic操...
· 使用VB6.0设计Activ...
· VB动态调用外部函数...
· 建立一个程序员自己...
· 如何编写高质量的VB...
· [图文] 为更新到Visual Bas...
· 再谈在VB中调用VC++...
· 用VB语言编程实现JP...
· 用DTS实现SQL数据库...
相关教程
· [图文] 用Word做名片 三步轻...
· 把握VB.NET中的流(S...
· 把握VB.NET中的流(S...
· [图文] 用Photoshop滤镜 三...
· [图文] MAC地址也克隆 三种...
· 局域网共享也玩另类...
· 不只愚人 恶作剧也恐...
· [组图] Dao ne Deepnet 三合...
· 提高工作效率 三种途...
· [组图] 给Windows打“补丁”...

把握VB.NET中的流(Stream) (三)
作者:佚名 来源:必威注册 发布时间:2005-12-29 18:02:40发布人:admin

减小字体 增大字体


把握VB.NET中的流(Stream) ()

文件操作具体实例

在这一部分,你将找到更多常用的文件操作的代码实例。最常用、最基本的操作就是把text写入文件和读回来。现在的应用程序通常不用二进制文件作存储简单的变量,而用它来存储对象,对象集合以及其他机器代码。下面,将看到具体操作的例子。

读写文本文件

为了把text保存到文件,创建一个基于FileStreamStreamReader对象,然后调用Write方法把需要保存的text写入文件。下面的代码用SaveFileDialog提示用户指定一个文件,用于保存TextBox1的内容。

SaveFileDialog1.Filter = _

"Text Files|*.txt|All Files|*.*"

SaveFileDialog1.FilterIndex = 0

If SaveFileDialog1.ShowDialog = DialogResult.OK Then

Dim FS As FileStream = SaveFileDialog1.OpenFile

Dim SW As New StreamWriter(FS)

SW.Write(TextBox1.Text)

SW.Close()

FS.Close()

End If

同样采用类似的语句,我们读取一个文本文件,并把内容显示在TextBox控件中。StreamReaderReadToEnd方法返回文件的全部内容。

OpenFileDialog1.Filter = _

"Text Files|*.txt|All Files|*.*"

OpenFileDialog1.FilterIndex = 0

If OpenFileDialog1.ShowDialog = DialogResult.OK Then

Dim FS As FileStream

FS = OpenFileDialog1.OpenFile

Dim SR As New StreamReader(FS)

TextBox1.Text = SR.ReadToEnd

SR.Close()

FS.Close()

End If

各种对象的存储

采用BinaryFormatte以二进制的形式,或者用SoapFormatter类以XML格式都可以序列化一个具体的对象。只要把所有BinaryFormatter的引用改为SoapFormatter,无需改变任何代码,就可以以XML格式序列化对象。

首先创建一个BinaryFormatter实例:

Dim BinFormatter As New Binary.BinaryFormatter()

然后创建一个用于存储序列化对象的FileStream对象:

Dim FS As New System.IO.FileStream("c:test.txt", IO.FileMode.Create)

接着调用BinFormatterSerialize方法序列化任何可以序列化的framework对象:

R = New Rectangle(rnd.Next(0, 100),rnd.Next(0, 300), _

rnd.Next(10, 40),rnd.Next(1, 9))

BinFormatter.Serialize(FS, R)

加一个Serializable属性使得自定义的对象可以序列化

Public Structure Person

Dim Name As String

Dim Age As Integer

Dim Income As Decimal

End Structure

下面代码创建一个Person对象实例,然后调用BinFormatter的Serialize方法序列化自定义对象:

P = New Person()

P.Name = "Joe Doe"

P.Age = 35

P.Income = 28500

BinFormatter.Serialize(FS, P)

你也可以在同一个Stream中接着序列化其他对象,然后以同样的顺序读回。例如,在序列化Person对象之后接着序列化一个Rectangle对象:

BinFormatter.Serialize(FS, New Rectangle(0, 0, 100, 200))

创建一个BinaryFormatter对象,调用其Deserialize方法,然后把返回的值转化为正确的类型,就是整个反序列化过程。然后接着发序列化Stream的其他对象。

假定已经序列化了PersonRectangle两个对象,以同样的顺序,我们反序列化就可以得到原来的对象:

Dim P As New Person()

P = BinFormatter.Serialize(FS, Person)

Dim R As New Rectangle

R = BinFormatter.Serialize(FS, Rectangle)

Persisting Collections

集合的存储

大多数程序处理对象集合而不是单个的对象。对于集合数据,首先创建一个数组(或者是其他类型的集合,比如ArrayListHashTable),用对象填充,然后一个Serialize方法就可以序列化真个集合,是不是很简单?下面的例子,首先创建一个有两个Person对象的ArrayList,然后序列化本身:

Dim FS As New System.IO.FileStream _

("c:test.txt", IO.FileMode.Create)

Dim BinFormatter As New Binary.BinaryFormatter()

Dim P As New Person()

Dim Persons As New ArrayList

P = New Person()

P.Name = "Person 1"

P.Age = 35

P.Income = 32000

Persons.Add(P)

P = New Person()

P.Name = "Person 2"

P.Age = 50

P.Income = 72000

Persons.Add(P)

BinFormatter.Serialize(FS, Persons)

以存储序列化数据的文件为参数,调用一个BinaryFormatter实例的Deserialize方法,就会返回一个对象,然后把它转化为合适的类型。下面的代码反序列化文件中的所有对象,然后处理所有的Person对象:

FS = New System.IO.FileStream _

("c:test.txt", IO.FileMode.OpenOrCreate)

Dim obj As Object

Dim P As Person(), R As Rectangle()

Do

obj = BinFormatter.Deserialize(FS)

If obj.GetType Is GetType(Person) Then

P = CType(obj, Person)

' Process the P objext

End If

Loop While FS.Position < FS.Length - 1

FS.Close()

下面的例子调用Deserialize方法反序列化真个集合,然后把返回值转换为合适的类型(Person):

FS = New System.IO.FileStream("c:test.txt", IO.FileMode.OpenOrCreate)

Dim obj As Object

Dim Persons As New ArrayList

obj = CType(BinFormatter.Deserialize(FS), ArrayList)

FS.Close()


[] [返回上一页] [打 印] [收 藏]
上一篇教程:VB.NET中对象的克隆
∷相关教程评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论...]
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 网站地图 - 管理登录
Copyright 2019 必威注册. All Rights Reserved .
浙ICP备05047688号