Solved

VB 2008, reading text file

Posted on 2010-11-29
7
753 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
  • 4
  • 3
7 Comments
 
LVL 85

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 33

Author Closing Comment

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

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
What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

 
LVL 85

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 85

Expert Comment

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

Author Comment

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

Author Comment

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

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

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…
Wouldn’t it be nice if you could test whether an element is contained in an array by using a Contains method just like the one available on List objects? Wouldn’t it be good if you could write code like this? (CODE) In .NET 3.5, this is possible…
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

758 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

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now