La clase FileStream - II

Para las operaciones de lectura tenemos los siguientes métodos: 

• ReadByte( ). Devuelve el valor sobre el que esté posicionado el objeto en ese momento. 
• Read( ). Traspasa valores a un array de bytes. 

Si queremos desplazarnos por los elementos del Stream, podemos utilizar el método Seek( ), pasando la cantidad de posiciones a movernos, y el punto desde el que queremos realizar dicho desplazamiento, mediante los valores de la enumeración SeekOrigin. Para averiguar el elemento del Stream en el que estamos situados, disponemos de la propiedad Position.

Veamos algunos ejemplos de lectura sobre este tipo de objetos, en el Código fuente 374.

' lectura con FileStream

Dim oFileStream As FileStream

oFileStream = New FileStream("\pruebas\apuntes.dtt", FileMode.Open)

Dim Valor As Byte

Valor = oFileStream.ReadByte() ' obtener un valor

Console.WriteLine("Se ha leido el valor: {0}", Valor)

Console.WriteLine("Nos desplazamos dos bytes en el stream")

oFileStream.Seek(2, SeekOrigin.Begin)

Valor = oFileStream.ReadByte()

Console.WriteLine("Se ha leido el valor: {0}", Valor)

Console.WriteLine("La posición actual del stream es: {0}", _

oFileStream.Position)

' leer varios valores, pasándolos a un array

' previamente dimensionado

Dim VariosValores(3) As Byte

oFileStream.Read(VariosValores, 0, 4)

Console.WriteLine("Leer bloque de valores del stream")

Dim Enumerador As IEnumerator

Enumerador = VariosValores.GetEnumerator()

While Enumerador.MoveNext

Console.WriteLine("Valor: {0}", Enumerador.Current)

End While

Console.ReadLine()

Código fuente 374