Mega Code Archive

 

Categories / VB.Net / File Directory

 

Stream Reader

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()         Dim writer As BinaryWriter = New BinaryWriter(mstream)         writer.Write(s)         writer.Write(n)         writer.Flush() ' Flush the buffer         ' Reset the stream to the beginning         mstream.Seek(0, SeekOrigin.Begin)         ' Read from the stream         Dim reader As BinaryReader = New BinaryReader(mstream)         Dim s2 As String = reader.ReadString()         Dim n2 As Integer = reader.ReadInt32()         Console.WriteLine(s2 + " " + n2)     End Sub End Class