Mega Code Archive

 

Categories / VB.Net / File Directory

 

StreamReader Peek Method Returns the next available character but does not consume it

Imports System Imports System.IO Imports System.Text Public Class Test     Public Shared Sub Main()         Dim path As String = "c:\temp\MyTest.txt"         Try             Dim sw As StreamWriter = New StreamWriter(path)             sw.WriteLine("This")             sw.WriteLine("is ")             sw.WriteLine("a")             sw.WriteLine("test")             sw.Close()             Dim sr As StreamReader = New StreamReader(path)             Do While sr.Peek() > -1                 Console.WriteLine(sr.ReadLine())             Loop             sr.Close()         Catch e As Exception             Console.WriteLine("The process failed: {0}", e.ToString())         End Try     End Sub End Class