Solved

VB 2008, reading text file

Posted on 2010-11-29
7
757 Views
Last Modified: 2012-06-27
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

0
Comment
Question by:Mike Eghtebas
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 500 total points
ID: 34236523
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
 
LVL 34

Author Closing Comment

by:Mike Eghtebas
ID: 34236541
Thank you
0
 
LVL 34

Author Comment

by:Mike Eghtebas
ID: 34236661
I have the following error. Unlike 99% of the time, your code causes an error as shown on the attached image.
VB2008TxtFileReadErr.png
0
Forrester Webinar: xMatters Delivers 261% ROI

Guest speaker Dean Davison, Forrester Principal Consultant, explains how a Fortune 500 communication company using xMatters found these results: Achieved a 261% ROI, Experienced $753,280 in net present value benefits over 3 years and Reduced MTTR by 91% for tier 1 incidents.

 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 34240470
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
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 34240476
If that doesn't fix it can you upload a sample text file?
0
 
LVL 34

Author Comment

by:Mike Eghtebas
ID: 34240563
I will test it now.
0
 
LVL 34

Author Comment

by:Mike Eghtebas
ID: 34241899
Thanks, it works.
0

Featured Post

Space-Age Communications Transitions to DevOps

ViaSat, a global provider of satellite and wireless communications, securely connects businesses, governments, and organizations to the Internet. Learn how ViaSat’s Network Solutions Engineer, drove the transition from a traditional network support to a DevOps-centric model.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Recently while returning home from work my wife (another .NET developer) was murmuring something. On further poking she said that she has been assigned a task where she has to serialize and deserialize objects and she is afraid of serialization. Wha…
For those of you who don't follow the news, or just happen to live under rocks, Microsoft Research released a beta SDK (http://www.microsoft.com/en-us/download/details.aspx?id=27876) for the Xbox 360 Kinect. If you don't know what a Kinect is (http:…
This video shows how to use Hyena, from SystemTools Software, to update 100 user accounts from an external text file. View in 1080p for best video quality.

732 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question