Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim f As System.IO.File
Dim r As System.IO.Stream
Dim mylength As Integer
Dim i As Integer
Dim s As Integer
Dim mybuffer(100) As Byte
r = f.OpenRead("test.txt")
mylength = r.Read(mybuffer, 0, 100)
For i = 0 To mylength
r.Seek(i, IO.SeekOrigin.Begin)
s = r.ReadByte()
Console.WriteLine(Chr(s))
Next
r.Close()
End Sub
End Class
|