VB.Net Tutorial/Stream File/MemoryStream

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

Use MemoryStream to read a file

<source lang="vbnet">Imports System.IO Imports System.Text Imports System.Threading

Public Class Tester

   Public Shared Sub Main
       Dim bteRead() As Byte
       Dim bteArray(256) As Byte
       Dim myMemortStream As MemoryStream
       Dim myFileStream As FileStream
       Try
           myFileStream = New FileStream("test.vb", FileMode.Open, FileAccess.Read)
           ReDim bteRead(myFileStream.Length)
           myFileStream.Read(bteRead, 0, myFileStream.Length)
           myMemortStream = New MemoryStream(256)
           myMemortStream.Write(bteRead, 128, 256)
           bteArray = myMemortStream.ToArray()
           Console.WriteLine(Encoding.ASCII.GetString(bteArray))
           myMemortStream.Close()
           myFileStream.Close()
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try
   End Sub
   

End Class</source>

Use MemoryStream with BinaryWriter and BinaryReader

<source lang="vbnet">Imports System.IO public class Test

  public Shared Sub Main
       Dim memory_stream As New MemoryStream()
       Dim binary_writer As New BinaryWriter(memory_stream)
       binary_writer.Write("aaa.")
       Dim binary_reader As New BinaryReader(memory_stream)
       memory_stream.Seek(0, SeekOrigin.Begin)
       Console.WriteLine(binary_reader.ReadString())
       binary_reader.Close()
  End Sub

End class</source>

aaa.

Use MemoryStream with StreamWriter and StreamReader

<source lang="vbnet">Imports System.IO public class Test

  public Shared Sub Main
       Dim memory_stream As New MemoryStream()
       Dim stream_writer As New StreamWriter(memory_stream)
       stream_writer.Write("aaa.")
       stream_writer.Flush()
       Dim stream_reader As New StreamReader(memory_stream)
       memory_stream.Seek(0, SeekOrigin.Begin)
       Console.WriteLine(stream_reader.ReadToEnd())
       stream_reader.Close()
  End Sub

End class</source>

aaa.