VB.Net Tutorial/Stream File/MemoryStream
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.