VB.Net/File Directory/Stream Reader

Read all file content

Imports System.IO
Module Module1
    Sub Main()
        Dim TextFile As StreamReader
        Try
            TextFile = New StreamReader("test.txt")
        Catch E As Exception
            Console.WriteLine("Error opening the file test.txt")
            Console.WriteLine("Error {0}", E.Message)
        End Try
        Dim Content As String
        Try
            Content = TextFile.ReadToEnd()
            Console.WriteLine(Content)
        Catch E As Exception
            Console.WriteLine("Error reading file")
            Console.WriteLine("Error {0}: ", E.Message)
        End Try
        TextFile.Close()
    End Sub
End Module

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

Stream Reader: read int

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