469,312 Members | 2,493 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,312 developers. It's quick & easy.

VB.NET populate 2 dimensional array from a text file?

In Visual Basic.NET 2003, how do you populate a two dimensional array from a text file? I know how to check file existence, open the file for read, etc. I just can't get it to read more than one record from the file into the array.

I have declared a 2 dimensional, 12 row, 2 column array named strVenues(11,1)
in the public section of the form.

The instructor is gone for the week, so I can't ask her any more questions about this project now. It is due next week, and I haven't even gotten the first part of it figured out! Here's what the she said, when I asked her about this project.

"You do not need the inner FOR loop; since you know that there are only two columns, just write directly to those elements; e.g., strVenues(intRow, 0) and strVenues(intRow,1).

Also, you are not separating the data. You are filling the columns with the entire record. The fields in the record have to be separated and stored in their respective columns.


When you do your readline, you are reading the entire record into your variable strVen. The record has more than one field. You've got to use string manipulation to separate the fields and place them in the correct columns in the array.

Same thing with the list box; you only want to list the events and nothing else."

(I have not gotten to the list box part of this assignment yet.)

I did get it to add only the first field in the record, but I cannot figure out how to get it to add all of the records from the file into the array! There are 11 records in the file, "venues.txt":

Toby Keith,C
Chicago,C
Nora Jones,C
Styx,C
Peter Pan,T
Mama Mia,T
Rent,T
Cats,T
David Copperfield,E
Paula Dean Cooking,E
Tractor Pull,E

I don't know why the instructions say to create a 12 row array, when there are 11 records. Could that be the problem? If so, how would I fix it?

I think this is how you put just the first field into the array. Can you tell me where the error(s) is/are in my code?

Expand|Select|Wrap|Line Numbers
  1.     Private Sub readFile() 'reads file into an array
  2.  
  3.         'declare variables
  4.  
  5.         Dim sreReader As IO.StreamReader
  6.  
  7.         'open the file
  8.         sreReader = IO.File.OpenText("venues.txt")
  9.  
  10.         'read each record into the array until the array is filled
  11.  
  12.         Dim strVen As String, intIndex, intCount As Integer
  13.  
  14.         For intCount = 0 To 10
  15.             strVen = sreReader.ReadLine()
  16.             strVenues(intCount, 0) = strVen.Substring(0, strVen.IndexOf(","))
  17.             intIndex = strVen.IndexOf(",") + 1 
  18.             strVenues(intCount, 1) = strVen.Substring(intIndex)
  19.  
  20.         Next intCount
  21.  
  22.         sreReader.Close()
  23.  

I have tried for hours and hours, to figure this out! I watched the class lectures, studied the book and searched online, and tried different things with the code, but nothing works!!! Please help me figure this out!

Could it have something to do with the way I have used the intIndex and substring methods?

Any clue as to what I'm doing wrong will be most appreciated!

Thanks
Jul 12 '07 #1
3 8579
I have asked at three different forums (plus this one) and so far I haven't seen any response.

This is driving me nuts! I know it can be done, because my instructor knows what she's talking about, and she said to do it.

Here are a few of the many things I've been trying. The apostrophes mean that I have been experimenting with these things…erase the apostrophe and test it, add an apostrophe and test it, in different combinations:

Expand|Select|Wrap|Line Numbers
  1.  
  2.         Dim strVen As String, intIndex, intCount As Integer
  3.  
  4.         '  For intCount = 0 To 10
  5.  
  6.         ' strVen = sreReader.ReadLine()
  7.  
  8.         ' strVenues(intCount, 0) = strVen.Substring(0)
  9.  
  10.         'intIndex = strVen.IndexOf(",", intIndex) + 1
  11.  
  12.         'strVenues(intCount, 1) = strVen.Substring(0)
  13.  
  14.         'intIndex = strVen.IndexOf(",", intIndex) + 1
  15.  
  16.         ' Next intCount 
  17.  
  18.  
  19.  
  20.         'Do While sreReader.Peek() <> -1
  21.  
  22.         For intCount = 0 To 10
  23.  
  24.             strVen = sreReader.ReadLine()
  25.  
  26.             strVenues(intCount, 0) = strVen.Substring(0, strVen.IndexOf(","))
  27.  
  28.             intIndex = strVen.IndexOf(",")  
  29.  
  30.             strVenues(intCount, 1) = strVen.Substring(intIndex, 1)
  31.  
  32.             'intIndex = strVen.IndexOf(",", intIndex) + 1
  33.  
  34.             'intIndex = strVen.IndexOf(",") + 1
  35.  
  36.         Next intCount
  37.  
  38.  
Here's my test label, which still only displays the last record in the text file.

I think this might mean that the compiler IS adding all the records to the array, but erases the previous one as it adds another, leaving only the last record. But HOW would I fix it?

Expand|Select|Wrap|Line Numbers
  1.  
  2.         Try
  3.  
  4.             Dim intX As Integer
  5.  
  6.             For intX = 0 To 10
  7.  
  8.                 testLabel.Text = strVenues(intX, 0) & ControlChars.NewLine
  9.  
  10.                 'intX = intX + 1
  11.  
  12.             Next intX
  13.  
  14.         Catch ex As System.IndexOutOfRangeException
  15.  
  16.         End Try
  17.  
  18.         ' For intIndex = 0 To 10
  19.  
  20.         ' testLabel.Text = strVen.Substring(0, strVen.IndexOf(",")) & ControlChars.NewLine
  21.  
  22.         ' Next intIndex
  23.  
  24.  
Jul 12 '07 #2
I managed to discover the answer to this question on my own. In case anyone who reads this needs to know the answer, here it is:

I was not displaying the label correctly, for one thing.

Here is the code that will populate my 2d array from text file:

Expand|Select|Wrap|Line Numbers
  1.         'populate array from file
  2.  
  3.         Dim strVen As String, intIndex, intCount As Integer
  4.         For intCount = 0 To 10
  5.             strVen = sreReader.ReadLine()
  6.             strVenues(intCount, 0) = strVen.Substring(0, strVen.IndexOf(","))
  7.             intIndex = strVen.IndexOf(",") + 1
  8.             strVenues(intCount, 1) = strVen.Substring(intIndex, 1)
  9.         Next intCount
  10.  
  11.         'close the file
  12.         sreReader.Close()
  13.  
Jul 12 '07 #3
kenobewan
4,871 Expert 4TB
Well done thanks for sharing the solution.
Jul 13 '07 #4

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

1 post views Thread by dibblm | last post: by
1 post views Thread by GB | last post: by
1 post views Thread by CARIGAR | last post: by
reply views Thread by harlem98 | last post: by
1 post views Thread by Geralt96 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.