VB.Net Tutorial/Stream File/Stream — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:40, 26 мая 2010
Содержание
Read from text file
<source lang="vbnet">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 mybuffer(100) As Byte r = f.OpenRead("test.txt") mylength = r.Read(mybuffer, 0, 100) For i = 0 To mylength Console.WriteLine(Chr(mybuffer(i))) Next r.Close() End Sub
End Class</source>
Seek file position
<source lang="vbnet">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</source>
Stream read operation
<source lang="vbnet">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 mybuffer(100) As Byte r = f.OpenRead("test.txt") mylength = r.Read(mybuffer, 0, 100) For i = 0 To mylength Console.WriteLine(Chr(mybuffer(i))) Next r.Close() End Sub
End Class</source>
Stream seek operation
<source lang="vbnet">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</source>