Parsing Input File

Parsing Input File

I am developing a VB3 app. I want to update an ACCESS 2.0 table weekly, in code, with a text file that is down-loaded from a VM mainframe. I know how to down-load the file but how do I import the data into the table in code?

I’m sure you know this already, but basically you have to “parse” the input file from the mainframe before you can load it. VB is pretty good about this…let’s say you have a line that is comma delimited (which I would assume is the case for you) and there are five fields. Here’s how you would do it:

Dim sLine as StringDim sChar as StringDim iField as IntegerDim sFields(5) as String * 50  ‘ or whatever maximum field length you readOpen “Filename.ext” for input as #1do while not eof(1)   sChar = Input$(1, 1)   if sChar = “,” then      iField = iField + 1   elseif Asc(sChar) = 10 then      ‘ Do nothing…end of line character   elseif Asc(sChar) = 13 then      ‘ Just hit end of line…need to process the fields somehow      ‘ and then clear holding variables      For iField = 1 to 5         sFields(iField) = “”      Next iField         iField = 1   else      sFields(iField) = sFields(iField) & sChar   End ifloopClose #1
Where the code processes the character #13, you will have all five input fields in this example, and you should insert them into your database. The field counter gets reset, and you go on reading fields. This same code should work well in VB4.0. Bear in mind though, if you want your code to be compatible with NT as well as Win95 you should avoid integers and use longs instead. NT (for some reason) doesn’t like integers as well as it does longs. In the case of the above code it should work fine changing the integer to a long.

See also - an AI reverse image search platform

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist