VB.Net/File Directory/Memory Stream

MemoryStream Demo

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

Memory Stream Writer and Reader

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

Public Class MainClass

  Shared Sub Main()
       Dim memory_stream As New MemoryStream()
       Dim binary_writer As New BinaryWriter(memory_stream)
       binary_writer.Write("www.vbex.ru")
       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>

Stream Reader and Writer for a MemoryStream

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

Public Class MainClass

  Shared Sub Main()
       Dim memory_stream As New MemoryStream()
       Dim stream_writer As New StreamWriter(memory_stream)
       stream_writer.Write("www.vbex.ru")
       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>