Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

VB 2008, reading text file

Posted on 2010-11-29
7
Medium Priority
?
759 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 2000 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
Automating Terraform w Jenkins & AWS CodeCommit

How to configure Jenkins and CodeCommit to allow users to easily create and destroy infrastructure using Terraform code.

 
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

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

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

Flash (http://en.wikipedia.org/wiki/Adobe_Flash) has evolved over the years to where it has become a masterful tool for displaying content screen.  It has excellent layout placement, UI precision as well as rendering capabilities. This, along with t…
In my previous article (http://www.experts-exchange.com/Programming/Languages/.NET/.NET_Framework_3.x/A_4362-Serialization-in-NET-1.html) we saw the basics of serialization and how types/objects can be serialized to Binary format. In this blog we wi…
How to fix incompatible JVM issue while installing Eclipse While installing Eclipse in windows, got one error like above and unable to proceed with the installation. This video describes how to successfully install Eclipse. How to solve incompa…
In response to a need for security and privacy, and to continue fostering an environment members can turn to for support, solutions, and education, Experts Exchange has created anonymous question capabilities. This new feature is available to our Pr…

670 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