Reading a Text File Line by Line

[Ciduletz1983]

Good day. I learn VB.NET alone. No support. Just some dumb tutorials. I can`t understand the meaning of "peek" and " -1 " in this code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FILE_NAME As String = "C:\test.txt"
        Dim TextLine As String

        If System.IO.File.Exists(FILE_NAME) = True Then

            Dim objReader As New System.IO.StreamReader(FILE_NAME)

            Do While objReader.Peek() <> -1
                TextLine = TextLine & objReader.ReadLine() & vbNewLine
            Loop

            TextBox1.Text = TextLine

        Else

            MsgBox("File Does Not Exist")

        End If
    End Sub

Could someone here explain me ? Please!

 

[Ciduletz1983]

Oh my head hurts. I`m into VB for 6 hours by now.. I can`t resolve the problem.. if ANYOANE PLASE COULD HELP ME..I don`t want an error if i hit the second button first.

 

[CygNuS]

This is the easiest solution:

[SIZE=2][COLOR=#0000ff]Private [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Sub[/COLOR][/SIZE][SIZE=2] Button2_Click([/SIZE][SIZE=2][COLOR=#0000ff]ByVal[/COLOR][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] System.Object, [/SIZE][SIZE=2][COLOR=#0000ff]ByVal[/COLOR][/SIZE][SIZE=2] e [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] System.EventArgs) [/SIZE][SIZE=2][COLOR=#0000ff]Handles[/COLOR][/SIZE][SIZE=2] Button2.Click[/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] objReader [/SIZE][SIZE=2][COLOR=#0000ff]Is [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Nothing [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then [/COLOR][/SIZE][SIZE=2][COLOR=#008000]'objReader has not been set yet[/COLOR][/SIZE]
[SIZE=2]   Button1.PerformClick() [COLOR=#008000]'executes Button1_Click where the objReader is initiated[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]End [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] objReader.Peek() <> -1 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[SIZE=2]   TextBox1.Text = objReader.ReadLine()[/SIZE]
[SIZE=2][COLOR=#0000ff]End [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]End [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Sub[/COLOR][/SIZE]

 

[Ciduletz1983]

Thx man. This is my 35 day of learning VB.NET i`m pretty new huh ? I spend about 5 6 hours a day trying to learn VB by myself with tutorials online.

 

[cjard]

How did you manage to get 56 hours into a day? That's a secret we could all do to hear!

 

[Ciduletz1983]

My english is bad ? I mean that i spend about 5 OR 6 hours a day reading tutorials and codes