• 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

    • Microsoft Store is getting improved recommendations, deeper Windows integration, and more by Taras Buria Microsoft announced several new features coming to the Microsoft Store on Windows 11. The company revealed that 250 million customers use the Microsoft Store each month. With the latest updates, Microsoft is improving the experience with better recommendations, search improvements, deeper Windows integration, Copilot, and more. The store's Home Page is getting personalized recommendations with suggestions based on your recent activities, what is trending in your region, and the recent deals. Microsoft says this change will bring more meaningful and relevant content. Search is getting smarter, and it now uses additional information when ranking apps. It is "intent-aware," and considers additional aspects like app updates, ratings, language-specific nuances, and more. In the United States, the Microsoft Store now has a Copilot button at the bottom of the screen. Clicking it lets you ask questions about an app or game, or compare two products. Speaking of Copilot, apps with AI-powered experiences now have a badge indicating that certain apps work better on Copilot+ PCs. Other changes to the Microsoft Store include a new Discover More section with related apps and deeper Windows integration. The latter lets you find apps in the Microsoft Store using Windows Search, and the "Open With" dialog now includes additional recommendations from the Microsoft Store. Finally, Microsoft made multiple under-the-hood improvements to boost performance (the app launches twice as fast as it did six months ago) and improve installation reliability. In addition to new features coming to the Microsoft Store, the company reminded users that some popular productivity apps are now available in the Store. They include Notion, Perplexity, Docker, and Day One. You can read more about all those changes in a post on the official Windows Blogs website. Last month, at Build 2025, Microsoft announced more improvements for the Microsoft Store, so stay tuned for those.
    • OpenAI exposes secret propaganda campaigns tied to multiple countries by David Uzondu Back in February, OpenAI shut down accounts that were busy developing Chinese surveillance tools aimed at the West. These tools were designed to snoop on social media, look for anti-China sentiment and protests, and report back to Chinese authorities. Now, OpenAI has announced it has disrupted even more shady operations, and not just those tied to China. In a report released Thursday, the company detailed how it recently dismantled ten different operations that were misusing its artificial intelligence tools. One of the China-linked groups, which OpenAI called "Sneer Review," used ChatGPT to churn out short comments for sites like TikTok, X, and Facebook. The topics varied, from U.S. politics to criticism of a Taiwanese game, where players work against the Chinese Communist Party. This operation even generated posts and then replied to its own posts to fake real discussions. What is particularly interesting is that the group also used ChatGPT to write internal performance reviews, describing how well they were running their influence campaign. Another operation with ties to China involved individuals posing as journalists and geopolitical analysts. They used ChatGPT to write social media posts and biographies for their fake accounts on X, translate messages from Chinese to English, and analyze data. OpenAI mentioned that this group even analyzed correspondence addressed to a U.S. Senator. On top of that, these actors used OpenAI's models to create marketing materials, basically advertising their services for running fake social media campaigns and recruiting intelligence sources. OpenAI also disrupted operations, probably originating in Russia and Iran. There was also a spam operation from a marketing company in the Philippines, a recruitment scam linked to Cambodia, and a deceptive job campaign that looked like something North Korea might orchestrate. Ben Nimmo, from OpenAI's intelligence team, noted the wide range of tactics and platforms these groups are using. However, he also said these operations were mostly caught early and did not manage to fool large numbers of real people. According to Nimmo, "We didn't generally see these operations getting more engagement because of their use of AI. For these operations, better tools don't necessarily mean better outcomes."
    • Long ago, I was in a networking class on a lab computer. The guy next to sarcastically told me to SHIFT+DELETE the C:\Windows folder. I said that I was sure Windows wouldn't allow such a thing (Windows 2000), and would either totally block the action or give some kind of dire warning. I was so confident that I tried it...not only was I wrong, but it didn't even give the standard "are you sure" warning, just went to town. I pressed cancel as quick as I could, but it was too late, shortly after, the system blue-screened and never booted again. I had to stay late and reinstall Windows for the teacher, but that ended up being a good thing, had great repour with him for the rest of the year, even got to help him get Active Directory setup in his lab.
    • My best decision: SHIFT+DELETE WINDOWS Then Installed Fedora Linux. Now I am a Happy Person
  • Recent Achievements

    • One Year In
      survivor303 earned a badge
      One Year In
    • Week One Done
      jbatch earned a badge
      Week One Done
    • First Post
      Yianis earned a badge
      First Post
    • Rookie
      GTRoberts went up a rank
      Rookie
    • First Post
      James courage Tabla earned a badge
      First Post
  • Popular Contributors

    1. 1
      +primortal
      419
    2. 2
      snowy owl
      182
    3. 3
      +FloatingFatMan
      182
    4. 4
      ATLien_0
      176
    5. 5
      Xenon
      136
  • Tell a friend

    Love Neowin? Tell a friend!