• 0

(VB) Read Text File Into a 2 Dimensional Array


Question

I need to read a sequential data file into an array. I'm not where things are going wrong here. I keep getting an error "Input past end of file". I'm pretty certain my text file is good. Anyone tell me what I'm doing wrong? My text books aren't yielding the answers, nor is the internet thus far.

Dim strRecords(6, 5) As String

Dim product_list As String

Dim ProductList As Integer

Dim dataFile As String

Dim row As Integer

Dim col As Integer

dlgCommon.Filter = "DAT|*.dat|Text|*.txt|All|*.*"

dlgCommon.ShowOpen

product_list = dlgCommon.FileName

ProductList = FreeFile

Open product_list For Input As #1

Do Until EOF(1)

For row = 1 To 6

For col = 1 To 5

Input #1, strRecords(row, col)

Next col

Next row

Loop

And the text file...

"L666","SURGE PROTECTOR","PC KING",3.30,160,"N"<CR>

"M013","MS MOUSE","MEMORY-REX",23.22,28,"N"<CR>

"H013","20 GB HARD DISK","MICRO SHOP",190.90,18,"N"<CR>

"L005","17'' MONITOR","KING",205.00,4,"N"<CR>

"M713","56K BAUD MODEM","MEMORY-REX",99.00,88,"N"<EOF>

Thanks,

~D

5 answers to this question

Recommended Posts

  • 0
  MrA said:
Why aren't you using a structure to hold your data instead of a 2D array.  Also, items 4 & 5 of each line are numbers, not strings.  That may cause you some problems later (or maybe now).

585015640[/snapback]

Could you clarify your question. Are you asking why I am not using a structure or why I am not using a 2D array?

I know for this assignment I must use an array. I understand the concept of the array and how information is read into it. I just can't get information read into it. heh..

Also, I adjusted the text file making everything strings. I'll validate the numbers as needed.

  • 0
  deck said:
Could you clarify your question.  Are you asking why I am not using a structure or why I am not using a 2D array?

I know for this assignment I must use an array.  I understand the concept of the array and how information is read into it.  I just can't get information read into it. heh..

Also, I adjusted the text file making everything strings.  I'll validate the numbers as needed.

585015699[/snapback]

I'm asking why you are using a 2D array. You could define a structure and make a 1D array of that structure.

Type MyStruct
    Item1 as String
    Item2 as String
    Item3 as String
    Item4 as Single
    Item5 as Integer
    Item6 as String
End Type

Dim myArray(5) as MyStruct

Get rid of the DO LOOP. It will cause problems. Or you could change the loop to:

Dim i as Integer
i = 1
Do Until EOF(1)
  For col = 1 To 6
    Input #1, strRecords(col, i)
  Next
  i = i + 1
Loop

At then end of your data file, put:

"M713","56K BAUD MODEM","MEMORY-REX",99.00,88,"N"&lt;CR&gt;
&lt;EOF&gt;

  • 0

What is the "Input #" line storing in each string? Is it reading the entire line or is it stopping at each comma-delineated element?

For example:

Line 1 = "L666","SURGE PROTECTOR","PC KING",3.30,160,"N"

What does strRecords(1,1) equal?

Either: "L666","SURGE PROTECTOR","PC KING",3.30,160,"N"

Or: "L666"

  • 0
  DrZoidberg said:
What is the "Input #" line storing in each string?  Is it reading the entire line or is it stopping at each comma-delineated element?

For example:

Line 1 = "L666","SURGE PROTECTOR","PC KING",3.30,160,"N"

What does strRecords(1,1) equal?

Either: "L666","SURGE PROTECTOR","PC KING",3.30,160,"N"

Or: "L666"

585015945[/snapback]

I want it to read the entire line.

THEN, I want that line to be searchable using only the first field (L666). So I read the records into the array then search the first field of each of those records for the one I want.

I was able to get my array working... sort of... now I'm working on searching it.

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • Doing that has only worked for me with the Enterprise version.
    • I like Neowin a lot, but this "article" is shady and misleading. We need an "editorial" flag and this isn't "news" it's "my cousin's dog's best friend posted on twitter about their snapchat account from their dog's owner that a bad thing happened, so it's NEWS." Thanks
    • Burrrrn. Bought COD WWII last month when it was on sale for PC. Oh well. Excellent game tho, and the PC version plays/looks amazing (and has it's own PC achievements). ...wondering if this is a lesson on waiting on sales. ...also hoping Rise of the Tomb Raider has it's own PC Achievements
    • Google Chrome 137.0.7151.120 (offline installer) by Razvan Serea The web browser is arguably the most important piece of software on your computer. You spend much of your time online inside a browser: when you search, chat, email, shop, bank, read the news, and watch videos online, you often do all this using a browser. Google Chrome is a browser that combines a minimal design with sophisticated technology to make the web faster, safer, and easier. Use one box for everything--type in the address bar and get suggestions for both search and Web pages. Thumbnails of your top sites let you access your favorite pages instantly with lightning speed from any new tab. Desktop shortcuts allow you to launch your favorite Web apps straight from your desktop. Chrome has many useful features built in, including automatic full-page translation and access to thousands of apps, extensions, and themes from the Chrome Web Store. Google Chrome is one of the best solutions for Internet browsing giving you high level of security, speed and great features. Important to know! The offline installer links do not include the automatic update feature. Google Chrome 137.0.7151.120 changelog: [$7000][420697404] High CVE-2025-6191: Integer overflow in V8. Reported by Shaheen Fazim on 2025-05-27 [$4000][421471016] High CVE-2025-6192: Use after free in Profiler. Reported by Chaoyuan Peng (@ret2happy) on 2025-05-31 [425443272] Various fixes from internal audits, fuzzing and other initiatives Download web installer: Google Chrome Web 32-bit | Google Chrome 64-bit | Freeware Download: Google Chrome Offline Installer 64-bit | 128.0 MB Download: Google Chrome Offline Installer 32-bit | 115.0 MB Download page: Google Chrome Portable Download: Google Chrome MSI Installers for Windows (automatic update) View: Chrome Website | Release Notes Get alerted to all of our Software updates on Twitter at @NeowinSoftware
  • Recent Achievements

    • One Month Later
      gatilogistic earned a badge
      One Month Later
    • One Year In
      Custom Greek Shirts earned a badge
      One Year In
    • One Month Later
      Custom Greek Shirts earned a badge
      One Month Later
    • Week One Done
      Custom Greek Shirts earned a badge
      Week One Done
    • Week One Done
      topantidetectbrowser earned a badge
      Week One Done
  • Popular Contributors

    1. 1
      +primortal
      672
    2. 2
      ATLien_0
      281
    3. 3
      Michael Scrip
      223
    4. 4
      +FloatingFatMan
      190
    5. 5
      Steven P.
      145
  • Tell a friend

    Love Neowin? Tell a friend!