Parse Text File

  • Thread starter Thread starter John
  • Start date Start date
J

John

I have a text file with almost 60,000 rows of data
seperated into many different sections. The rows in each
section have a different number of fields and field
lenghts. Right now, I'm only interested in pulling data
from one section. I'd like to write a macro to go line by
line until it finds the title of the section I'm
interested in, start reading and parsing the data, then
stop when it finds the name of a new section. I know how
to read an entire text file and parse data. How can I
make the macro start when it finds the begining of a
section and stop at the end of the section?

Thanks for any help.
 
John

don't know your exact data but something like this may
work:

Dim Datarow as Long

Datarow = 1

....'(assumes first line of data is first row of worksheet)

Do until cells(Datarow, 1) = "whatever"
Datarow = Datarow + 1
Loop
Cells(Datarow, 1).select

.....'this gets you to the start point of your section
(I've assumed your section has a name which you use in
place of "whatever"

Do until cells(Datarow, 1) = "whatever section end is"

......your code here to work on your data

Datarow = Datarow + 1
Loop

There are probably other ways but I've used this method
successfuly for similar worrk to that which you describe.

HTH

Michael Bond
 
John

just an afterthought...with such a lot of data its worth
adding

Application.DisplayAlerts = False...at begining of code

and

Application.DisplayAlerts = True...at end

This will avoid screen refresh for each line of file you
work on and will speed up the running of your project

Michael
 
Thanks for the response Michael, but will this work on a
text file? I'm trying to read the text file directly
using VBA. I don't want to import it first.

John
 
Back
Top