Stream Reader Demo
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 writer As StreamWriter = New StreamWriter(mstream) writer.WriteLine(s) writer.WriteLine(n) writer.Flush() ' Flush the buffer ' Reset the stream to the beginning mstream.Seek(0, SeekOrigin.Begin) ' Read from the stream Dim reader As StreamReader = New StreamReader(mstream) Dim s2 As String = reader.ReadLine() Dim n2 As String = Integer.Parse(reader.ReadLine()) ' Do something with the data Console.WriteLine(s2 + " " + n2) End Sub End Class