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

把握VB.NET中的流(Stream) (三) (转)[@more@]

把握vb.NET中的流(Stream) (三)

文件操作具体实例XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

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

读写文本文件

为了把text保存到文件，创建一个基于FileStream的StreamReader对象，然后调用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控件中。StreamReader的ReadToEnd方法返回文件的全部内容。

 

  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)

接着调用BinFormatter的Serialize方法序列化任何可以序列化的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的其他对象。

假定已经序列化了Person和Rectangle两个对象，以同样的顺序，我们反序列化就可以得到原来的对象：

 

  Dim P As New Person()

  P = BinFormatter.Serialize(FS, Person)

  Dim R As New Rectangle

  R = BinFormatter.Serialize(FS, Rectangle)

Persisting Collections

集合的存储

大多数程序处理对象集合而不是单个的对象。对于集合数据，首先创建一个数组（或者是其他类型的集合，比如ArrayList或HashTable），用对象填充，然后一个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()

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-991694/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-991694/