User Name Password Register
DaniWeb IT Discussion Community
Home
Forums
Tutorials
Code Snippets
Blogs
Link Directory
All
•
•
•
•
What is DaniWeb IT Discussion Community?
You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 332,603 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,157 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Join our community!
•
•
•
•
FAQ | Community Rules | Welcome Guide
Please support our Visual Basic 4 / 5 / 6 advertiser:
Views: 253 | Replies: 6
Reply
•
•
Join Date: May 2008
Posts: 5
Reputation: Sliders is an unknown quantity at this point 
Rep Power: 0
Solved Threads: 0
Sliders's Avatar
Sliders Sliders is offline Offline
Newbie Poster

Loading A Text File into a Array into a Listbox

  #1  
8 Days Ago
I am usually not keen for asking for help in these kind of situations but I am really stumped when it comes to this, all I really need is a good step in the right direction and I should be (hopefully) fine.

I am currently writing an airplane seating program for my VB class. What I am trying to do is load a text file into an array and then out put it into the list box.

Help with Code Tags
Language Syntax (Toggle Plain Text) 
  1.         Dim seat(15, 6) As Double

  2.         Dim sr As IO.StreamReader = IO.File.OpenText("plane.txt")

  3.         For row As Integer = 0 To 6

  4.             For col As Integer = 0 To 15

  5.                 seat(row, col) = CDbl(sr.ReadLine)

  6.             Next

  7.         Next

  8.         listSeat.Items.Clear()

  9.         listSeat.Items.Add("ABC DEF")

  10.         Do While sr.Peek <> -1

  11.             listSeat.Items.Add(sr.ReadLine)

  12.         Loop

  13.         sr.Close()

  14.     End Sub

The setup for the txt file is like this:

... ...
... ...
... ...
... ...
... ...
... ...
... ...
... ...
... ...
... ...
... ...
... ...
... ...
... ...
... ...

When I execute the program I get a InvalidCastException which said {"Conversion from string "V.. ..." to type 'Double' is not valid."}

The "V.. ...." is from the txt file, from this error from what I am trying to comprehend is that its trying to convert the whole line to double, but I am not sure on how to go about going fixing this small problem, because If i can figure this out then I can figure out the rest of my problem.

Thanks in advanced
AddThis Social Bookmark Button
Reply With Quote  
•
•
Join Date: Nov 2006
Posts: 582
Reputation: QVeen72 is an unknown quantity at this point 
Rep Power: 3
Solved Threads: 76
QVeen72's Avatar
QVeen72 QVeen72 is offline Offline
Posting Pro

Re: Loading A Text File into a Array into a Listbox

  #2  
8 Days Ago
Hi,

Not sure, try this, change your code:

listSeat.Items.Add(sr.ReadLine( ))

Regards
Veena
There is nothing Noble in being Superior to some other person. True Nobility lies in being Superior to your Former Self.
Reply With Quote  
•
•
Join Date: May 2008
Posts: 5
Reputation: Sliders is an unknown quantity at this point 
Rep Power: 0
Solved Threads: 0
Sliders's Avatar
Sliders Sliders is offline Offline
Newbie Poster

Re: Loading A Text File into a Array into a Listbox

  #3  
8 Days Ago
No, that didn't work. What also I tried to do is reverse the do while statement and the for statement but I got an out of bounds exception.
Reply With Quote  
•
•
Join Date: Nov 2006
Posts: 582
Reputation: QVeen72 is an unknown quantity at this point 
Rep Power: 3
Solved Threads: 76
QVeen72's Avatar
QVeen72 QVeen72 is offline Offline
Posting Pro

Re: Loading A Text File into a Array into a Listbox

  #4  
7 Days Ago
Hi,

Try to declare reader oject like this :

Dim sr As New System.IO.StreamReader("C:\plane.txt")

Give complete path of the file..

REgards
Veena
There is nothing Noble in being Superior to some other person. True Nobility lies in being Superior to your Former Self.
Reply With Quote  
•
•
Join Date: May 2008
Posts: 5
Reputation: Sliders is an unknown quantity at this point 
Rep Power: 0
Solved Threads: 0
Sliders's Avatar
Sliders Sliders is offline Offline
Newbie Poster

Re: Loading A Text File into a Array into a Listbox

  #5  
7 Days Ago
No I shouldn't have to give the complete path since the txt file is already where it is supposed to be in my project file, it will load just fine, but from what I see the problem is the way the code is written, and I have really no idea how to fix it.
Reply With Quote  
•
•
Join Date: May 2008
Posts: 5
Reputation: Sliders is an unknown quantity at this point 
Rep Power: 0
Solved Threads: 0
Sliders's Avatar
Sliders Sliders is offline Offline
Newbie Poster

Re: Loading A Text File into a Array into a Listbox

  #6  
7 Days Ago
Sorry for double posting but I think I fixed the code to make it better, and it works to an extent.

Help with Code Tags 
Private Sub Chart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sr As IO.StreamReader = IO.File.OpenText("plane.txt")
        For row As Integer = 0 To 15
            For col As Integer = 0 To 6
                seat(row, col) = CStr(sr.ReadLine)
            Next
        Next
        listSeat.Items.Add("ABC DEF")
        'Do While sr.Peek <> -1
        ''''listSeat.Items.Add(seat(row, col))
        sr.Close()
    End Sub

I don't get any out of bounds errors or null exception errors, but it won't output the text file into the list box for some reason
Reply With Quote  
•
•
Join Date: Nov 2006
Posts: 582
Reputation: QVeen72 is an unknown quantity at this point 
Rep Power: 3
Solved Threads: 76
QVeen72's Avatar
QVeen72 QVeen72 is offline Offline
Posting Pro

Re: Loading A Text File into a Array into a Listbox

  #7  
4 Days Ago
Hi,

While populating the "Seat", populate the Listbox as well...

Help with Code Tags
vb Syntax (Toggle Plain Text) 
  1. Private Sub Chart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.   Dim sr As IO.StreamReader = IO.File.OpenText("plane.txt")
  3.   listSeat.Items.Add("ABC DEF")
  4. For row As Integer = 0 To 15
  5.  For col As Integer = 0 To 6
  6.   seat(row, col) = CStr(sr.ReadLine)
  7.   listSeat.Items.Add(seat(row, col))
  8.  Next
  9. Next
  10. sr.Close()
  11. End Sub

Regards
Veena
Last edited by QVeen72 : 4 Days Ago at 7:22 am.
There is nothing Noble in being Superior to some other person. True Nobility lies in being Superior to your Former Self.
Reply With Quote  
Reply

•
•
•
•

Only community members can participate in forum threads. You must register or log in to contribute.

Register
•
•
•
•
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

 

•
•
•
•
•
•
•
•
DaniWeb Visual Basic 4 / 5 / 6 Marketplace
•
•
•
•
Thread Tools Display Modes
Linear Mode Linear Mode

•
•
•
•
Array ads adsense google link revenue text unit
Similar Threads
Other Threads in the Visual Basic 4 / 5 / 6 Forum

Advertising Opportunities on DaniWeb
Contact Us - Newsletter Archive - Sitemap - Privacy Statement
All times are GMT -4. The time now is 1:24 am.
Forum system based on vBulletin Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
©2003 - 2008 DaniWeb® LLC