VB.NET 的Stream(转载)

当你第一次用VB.NET读写文件的时候,你肯定会发现VB.NET摒弃了传统的文件I/O支持,感觉不习惯。其实,在.NET里面,微软用丰富的“流”对象取代了传统的文件操作,而“流”,是一个在Unix里面经常使用的对象。

       我们可以把流当作一个通道,程序的的数据可以沿着这个通道”流”到各种数据存储机构(比如:文件,字符串,数组,或者其他形式的流等)。为什么我们会摒弃用了那么久的IO操作,而代之为流呢?其中很重要的一个原因就是并不是所有的数据都存在于文件中。现在的程序,从各种类型的数据存储中获取数据,比如可以是一个文件,内存中的缓冲区,还有InterneT。而流技术使得应用程序能够基于一个编程模型,获取各种数据,而不必要学会怎么样去获取远程web服务器上的一个文件的具体技术。我们只需要在应用程序和web服务器之间创建一个流,然后读取服务器发送的数据就可以了。

流对象,封装了读写数据源的各种操作,最大的优点就是一当你学好怎么样操作某一个数据源时,你就可以把这种技术扩展到其他形形色色的数据源。

流的种类

流是一个抽象类,你不能在程序中申明Stream的一个实例。在.NET里面,由Stream派生出5种具体的流,分别是
FileStream       支持对文件的顺序和随机读写操作
MemoryStream   支持对内存缓冲区的顺序和随机读写操作
NETworkStream  支持对Internet网络资源的顺序和随机读写操作,存在于System.Net.Sockets名称空间
CryptoStream    支持数据的编码和解码,存在于System.Security.Cryptography 名称空间BufferedStream  支持缓冲式的读写对那些本身不支持的对象

并不是所有的Stream都采用用完全一摸一样的方法,比如读取本地文件的流,可以告诉我们文件的长度,当前读写的位置等,你可以用Seek方法跳到文件的任意位置。相反,读取远程文件的流不支持这些特性。不过,Stream本身有CanSeek, CanRead 和 CanWrite属性,用于区别数据源,告诉我们支持还是不支持某中特性。

下面我们简单介绍一个FileStream类

FileStream类
进行本地文件操作的时候,我们可以采用FileSteam类, 可以很简单的读写为字节数组(arrays of bytes)。对于简单数据类型的数据的读写,可以采用BinaryReader 和BinaryWriter以及StreamReader,StreamWriter类。 BinaryReader,用特定的编码将基元数据类型读作二进制值。BinaryWriter以二进制形式将基元类型写入流,并支持用特定的编码写入字符串。StreamReader/Writer则是把数据存储为XML格式。在VB.NET里面采用那个区别不大,因为所用的类都应用于两种格式。

VB.NET支持传统的随机读写文件,你可以创建文件,用于存储Struct,然后根据记录数访问。就像在以前的Vb版本中一样,用FileOpen,FileGet函数。很大程度上,这已经被XML或者数据库取代。如果你创建新的应用程序,而有不需要考虑跟就版本的兼容问题,建议采用.NET的新特性。

不管你将要使用拿一个StreamClass,你都必须创建一个FileStream对象。有很多方式创建,最简单就是指定文件路径,打开模式,如下面的语法。

 Dim fStream As New FileStream(path, fileMode, fileAccess)

Path要包含文件的路径以及文件名。fileMode是枚举类型FileMode的成员之一,如下表所示。fileAccess是枚举类型FileAccess的成员。Read (只读), ReadWrite (读写), and Write (写操作)。决定了文件的读写权限。

<成员名称

<说明

Append

打开现有文件并查找到文件尾,或创建新文件。

Create

指定操作系统应创建新文件。如果文件已存在,它将被改写

CreateNew

指定操作系统应创建新文件。

Open

指定操作系统应打开现有文件。

OpenOrCreate

指定操作系统应打开文件(如果文件存在);否则,应创建新文件。

Truncate

指定操作系统应打开现有文件。文件一旦打开,就将被截断为为零字节大小。

当然,你也可以用 (Open,  OpenRead,  OpenText, OpenWrite)创建FileStream  

Dim FS As New FileStream = IO.File.OpenWrite("c:/Stream.txt") 

另外一种方式打开文件可以用OpenFileDialog 和 SaveFileDialog控件的OpenFile方法。

不需要指定任何参数。 OpenFileDialog的OpenFile方法以只读方式打开文件; SaveFileDialog的OpenFile方法以读写方式打开文件。 

FileStream只支持最基本的操作,把数据写入字节数组或者从字节数组写入文件中。如果我们用FileStream把数据保存在文件中,首先把数据转化为Byte数组,然后调用FileStream的Write方法。同样,FileStream的Read方法,返回的也是字节数组。你或许不会经常直接使用FileStream对象,我们还是有必要简单看一下它的基本功能

创建FileStream对象之后,调用WriteByte 写一个字节到文件中。 Write方法可以将一个数组写入文件中,需要三个参数
   Write(buffer, offset, count)
Buffer是要写入数组地址,offset是偏移量,count指写入字节数量,Read的语法也一样。 

由于FileStream要跟Bytes Array打交道,所以研究一下ASCIIEncoding 的GetBytes和UnicodeEncoding 的GetChars很有必要 

下面的例子是一个转换操作。

   Dim buffer() As Byte

   Dim encoder As New System.Text.ASCIIEncoding()

   Dim str As String = "This is a line of text"

   ReDim buffer(str.Length - 1)

   Encoder.GetBytes(str, 0, str.Length, buffer, 0)

   FS.Write(buffer, 0, buffer.Length)

 注意:必须Resize要写入的Byte数组为要读写的长度。
文件操作具体实例

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

灵活多样的IO操作

有时候,在数据和字节数组之间转换是一件繁琐的事情。为了避免这些无聊的转换和简化代码,采用StreamReader/StreamWrite和BinaryReader/BinaryWriter不愧为明智之举。StreamReader/StreamWrite分别由TextReader/TextWriter类派生,自动执行字节编码的转换。BinaryReader/BinaryWriter由Stream派生,主要以二进制的形式读写数据。

从二进制文件读数据的时候,首先创建一个BinaryReader的实例,BinaryReader的构建函数接受一个FileStream对象,代表将要读的文件。我们前面已经看过,可以用File.OpenRead 或者 File.OpenWrite 方法创建FileStream对象。

如下所示:

   Dim BR As New IO.BinaryReader(IO.File.OpenRead(path))

   Dim BW As New IO.BinaryWriter(IO.File.OpenWrite(path))

            BinaryWriter类有Write和WriteLine两种方法,都可以接受任何类型的数据作为参数写入文件(WriteLine在文件尾追加一行数据)。BinaryReader类有很多读数据的方法,数据存储在文件上的时候,并没有任何关于自己类型的信息,所以读数据的时候,必须选择合适的重载Read方法。

            下面的例子假设BW是一个已经初始化过的BinaryWriter对象,表示如何写一个字符串、整数、双精度数字到文件:

   BW.WriteLine("A String")

   BW.WriteLine(12345)

   BW.WriteLine(123.456789999999)

         读回数据的时候,必须选择BinaryReader合适的Read方法:

   Dim s As String = BR.ReadString()

   Dim i As Int32 = BR.ReadInt32()

   Dim dbl As Double = BR.ReadDouble()

对于文本文件,采用StreamReader/StreamWriter对象。方法跟上面差不多,写数据同样用Write和WriteLine方法。Read方法读一个字符,ReadLine读一行数据(直到有回车/换行符为止),ReadToEnd读所有的字符,到文件结束。

对象序列化

到目前为止,我们只是把简单类型的数据写到文件中并读回程序。而实际上,大多数的程序读写的数据可能并不是简单类型,而是复杂的结构,例如:数组,数组列表,哈希表等。于是,我们采取一种成为序列化的技术,首先把数组的值转化为字节序列,然后写入文件,这样整个数组就存储下来。相反,我们称之为反序列化。

序列化是.NET的一个很大的话题,这列介绍一下基本的信息。

用BinaryFormatter的Serialize 和 Deserialize方法把一个对象保存到文件和读回程序。首先,imports System.RunTime.Serialization.Formatters,免得写那么长的申明。Formatters名空间包含了BinaryFormatter类,用于以二进制的数据序列化对象。

创建BinaryFormatter实例,接着调用Serialize方法,Serialize接受两个参数:一个是可写的FileStream实例,用于保存数据的文件;另外一个是对象本身:

   Dim BinFormatter As New Binary.BinaryFormatter()

   Dim R As New Rectangle(10, 20, 100, 200)

   BinFormatter.Serialize(FS, R)

         BinaryFormatter的Deserialize方法只有一个参数,FileStream实例。在当前位置,反序列化得到一个类型不明的对象,我们必须用Ctype转换为原来的对象。下面的例子反序列化上面的文件得到原来的Rectangle对象:

   Dim R As New Rectangle()

   R = CType(BinFormatter.Deserialize(FS), Rectangle)

我们也可以以XmlFormatter进行对象序列化。首先在IDE的Project菜单选择添加System.Runtime.Serialization.Formatters.Soap,然后就可以进行创建SoapFormatter对象了,方法跟BinFormatter一样,只不过数据的存储采用XML格式:

   Dim FS As New IO.FileStream("c:/Rect.xml", IO.FileMode.Create, IO.FileAccess.Write)

   Dim XMLFormatter As New SoapFormatter()

   Dim R As New Rectangle(8, 8, 299, 499)

   XMLFormatter.Serialize(FS, R)

打开c:/Rect.xml ,实际上里面存储了这些内容:

 - <SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:clr="http://schemas.microsoft.com/soap/encoding/clr/1.0" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">

- <SOAP-ENV:Body>

- <a1:Rectangle id="ref-1" xmlns:a1="http://schemas.microsoft.com/clr/nsassem/System.Drawing/System.Drawing%2C%20Version%3D1.0.3300.0%2C%20Culture%3Dneutral%2C%20PublicKeyToken%3Db03f5f7f11d50a3a">

  <x>8</x>

  <y>8</y>

  <width>249</width>

  <height>499</height>

  </a1:Rectangle>

  </SOAP-ENV:Body>

  </SOAP-ENV:Envelope>


读写文本文件

为了把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属性使得自定义的对象可以序列化

    <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()

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值