VB.Net by API/System.IO/MemortStream

MemortStream.Seek

   
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

MemortStream.ToArray()

   

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

MemortStream.Write

   

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

MemoryStream.Read

   
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

New MemoryStream

   

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