VB.Net Tutorial/Stream File/Stream — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Текущая версия на 15:56, 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>