VB 2008, reading text file

I have the following code to read data from a txt file. This code, although it works, may be using vb 6 version.
 
        Dim ScoreFile As StreamReader
        ScoreFile = File.OpenText("ScoreList.txt")
        Dim strTemp As String
        Dim fileline As Object

        strTemp = ScoreFile.ReadLine()

        Do Until ScoreFile.Peek = -1
            strTemp = ScoreFile.ReadLine()'<-- to bypass the header
            fileline = strTemp.Split("|")

            For i = 0 To 5
                Debug.Print(fileline(i))
            Next
        Loop

Question: What this code using VB 2008 version?

Thank you
StudentName|Score1|Score2|Score3|Score4|Score5|NoOfScores
a,a        |1     |      |      |      |      |1       
b,b        |22    |2     |      |      |      |2
c,c        |3     |3     |      |      |      |2
d,d        |4     |4     |4     |4     |      |4
e,e        |5     |5     |5     |5     |5     |5
f,f        |      |      |      |      |      |0

Open in new window

LVL 34
Mike EghtebasDatabase and Application DeveloperAsked:
Who is Participating?
 
Mike TomlinsonConnect With a Mentor Middle School Assistant TeacherCommented:
It's not much different...
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Values() As String
        Using ScoreFile As New StreamReader("ScoreList.txt")
            ScoreFile.ReadLine() ' skip the header
            While ScoreFile.Peek <> 0
                Values = ScoreFile.ReadLine.Split("|")
                For i As Integer = 0 To Values.GetUpperBound(0)
                    Debug.Print(Values(i))
                Next
            End While
        End Using
    End Sub

End Class

Open in new window

0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
Thank you
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
I have the following error. Unlike 99% of the time, your code causes an error as shown on the attached image.
VB2008TxtFileReadErr.png
0
Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

 
Mike TomlinsonMiddle School Assistant TeacherCommented:
Hmm...try this instead:
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim line As String
        Dim Values() As String
        Using ScoreFile As New StreamReader("ScoreList.txt")
            ScoreFile.ReadLine() ' skip the header

            If ScoreFile.Peek <> 0 Then
                line = ScoreFile.ReadLine
                While Not IsNothing(line)
                    Values = line.Split("|")
                    For i As Integer = 0 To Values.GetUpperBound(0)
                        Debug.Print(Values(i))
                    Next

                    line = ScoreFile.ReadLine
                End While
            End If
        End Using
    End Sub

End Class

Open in new window

0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
If that doesn't fix it can you upload a sample text file?
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
I will test it now.
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
Thanks, it works.
0
All Courses

From novice to tech pro — start learning today.