VB.Net by API/System.IO/MemortStream

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

MemortStream.Seek

<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>


MemortStream.ToArray()

<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>


MemortStream.Write

<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>


MemoryStream.Read

<source lang="vbnet"> Imports System.Data Imports System.IO Imports System.IO.IsolatedStorage Imports System.Text Imports System.Runtime.Serialization Imports System.Runtime.Serialization.Formatters Imports System.Runtime.Serialization.Formatters.Soap Imports System.Runtime.Serialization.Formatters.Binary Imports System.Windows.Forms Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim s As String = "111"
       Dim n As Integer = 452
       Dim mstream As Stream = New MemoryStream()
       " Write to the stream
       Dim bytes1() As Byte = UnicodeEncoding.Unicode.GetBytes(s)
       Dim bytes2() As Byte = BitConverter.GetBytes(n)
       mstream.Write(bytes1, 0, bytes1.Length)
       mstream.Write(bytes2, 0, bytes2.Length)
       " Reset the stream to the beginning
       mstream.Seek(0, SeekOrigin.Begin)
       " Read from the stream
       Dim bytes3(mstream.Length - 4) As Byte
       Dim bytes4(4) As Byte
       mstream.Read(bytes3, 0, bytes3.Length)
       mstream.Read(bytes4, 0, bytes4.Length)
       " Do something with the data
       Console.WriteLine(UnicodeEncoding.Unicode.GetString(bytes3) + " " + BitConverter.ToInt32(bytes4, 0))
   End Sub

End Class


 </source>


New MemoryStream

<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>