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

原创 2002年09月12日 15:39:00

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

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

在这一部分,你将找到更多常用的文件操作的代码实例。最常用、最基本的操作就是把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属性使得自定义的对象可以序列化

 

   <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自学笔记(三)】StreamReader与StreamWriter的应用——UTF-8文本的读写

StreamReader,属于System.IO的子类。 Function SRead(path As String) '输入文件的路径 Dim txt As System.IO.StreamRea...
  • sillsun
  • sillsun
  • 2017年12月12日 09:54
  • 128

笔记5:vb.net的FileStream操作

Imports System.IO Imports System.Text Public Class Form1 Private Sub Button1_Click(sender As Ob...
  • dzweather
  • dzweather
  • 2013年10月17日 20:51
  • 7427

VB.net 文件读取、写入、追加操作

Dim PathUserData As String = Application.StartupPath & "\实操统计sql.txt" TextTB.Text = System.IO.File.R...
  • wang19850219
  • wang19850219
  • 2014年11月27日 10:49
  • 5902

Java动态调用类方法的应用

今天看到的好文章和大家分享一下: http://www.internetism.org/qbbs/ShowAnnounce.asp?boardID=1&RootID=375&ID=375 http:/...
  • TomyGuan
  • TomyGuan
  • 2007年07月05日 11:22
  • 520

StreamReader类以及其方法ReadLine,Read,ReadToEnd的分析

首先StreamReader类的构造参数非常丰富 在这里,我觉得最常用的就是StreamReader(Stream stream)和StreamReader(String str)这两个最常用 第...
  • kaituozhe345
  • kaituozhe345
  • 2012年03月08日 23:44
  • 11073

.net Stream MemoryStream 的使用注意事项 及 把流输出到客户端.

Stream 是一个父类, 子类如果是MemoryStream 经常会因为被其它代码处理过. 会将指针指向到流的最后. 而这个时候.取出数据是取不到的. 所以要先定位到 0ms.Position = ...
  • phker
  • phker
  • 2016年06月16日 12:01
  • 2150

【.Net码农】Stream 和 byte[] 之间的转换

http://www.cnblogs.com/warioland/archive/2012/03/06/2381355.html Stream 和 byte[] 之间的转换 一. 二进...
  • CrackLibby
  • CrackLibby
  • 2015年06月30日 10:33
  • 1333

简单的流转换为字符串StreamTools

简单的流转换为字符串 package com.flyou.utils; import java.io.ByteArrayOutputStream; import java.io.IOExcepti...
  • u013616976
  • u013616976
  • 2015年03月31日 10:55
  • 1095

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

把握VB.NET中的流(Stream) (三)文件操作具体实例在这一部分,你将找到更多常用的文件操作的代码实例。最常用、最基本的操作就是把text写入文件和读回来。现在的应用程序通常不用二进制文件作存...
  • Montaque
  • Montaque
  • 2002年09月12日 15:39
  • 1702

.NET源码中的Stream类

在System.IO命名间下的Stream类,.NET对它的定义是:Provides a generic view of a sequence of bytes. 也就是一个有序...
  • cuit
  • cuit
  • 2014年07月01日 23:51
  • 661
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:把握VB.NET中的流(Stream) (三)
举报原因:
原因补充:

(最多只允许输入30个字)