Mega Code Archive

 

Categories / VB.Net / File Directory

 

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