Reading Text Files - Dev

[Roy]

I use a Access 2K application.I am trying to use Chuck
Grimsby(clsRead TextFile.txt)cl ass utility to read a text file and then
do a import of the same into my database.The question is how to call
these in a button event or any other method.

Thanks,
Roy

[Rich P]

Sorry about that. It should read like this:

...
Set RS2 = db.OpenRecordse t("tblParsedDat *a")
Do While Not RS1.EOF
str1 = RS1(0)

RS1 is the raw data table. Each field in RS1 contains the entire row
picked up from the textfile. It is the row that you are parsing based
on whatever your field delimeter is in the textfile.

Rich

*** Sent via Developersdex http://www.developersdex.com ***

[Rich P]

Sorry about that. It should read like this:

...
Set RS2 = db.OpenRecordse t("tblParsedDat *a")
Do While Not RS1.EOF
str1 = RS1(0)

RS1 is the raw data table. Each field in RS1 contains the entire row
picked up from the textfile. It is the row that you are parsing based
on whatever your field delimeter is in the textfile.

Rich

*** Sent via Developersdex http://www.developersdex.com ***

[Chuck Grimsby]

On 4 Aug 2005 06:01:36 -0700, "Roy" <pr********@yah oo.com> wrote:

Obviously I am doing something wrong here.I imported your
clsReadTextFil e.txt to the MyDocuments folder.I pasted the code
Application.Lo adFromText acModule,"clsRe adTextFile",
"clsReadTextFi le.txt"
,but it errors ,saying ,it cannot read the clsReadTextFile .txt .Can you
please detail the steps how to go about the whole thing,please.
The text file i need to use is EMSTestFeed.txt .
Where do i fit this in your code?How do i read your class from the VBA
module.

Well, step 1 is to get the class into your Access DB. If that can't
be done (and it only has to be done _once_), then nothing will help
you any further.

Hmmm.... _Where_ did you paste the "Application.Lo adFromText..."
part? You _cannot_ do it in the code module. It _must_ be done in
the Immediate window. Nowhere else will work, or do. Note: This part
is not something you have to _every time_, it's just a one time thing
to get the class module into your project. (Rather like creating a
Form. Generally, you only have to create it once.)

The name of the text file you are trying to read doesn't matter at
this point. We'll take care of that after you have the
clsReadTextFile class module in your database.

--
Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing

[Chuck Grimsby]

On 4 Aug 2005 06:01:36 -0700, "Roy" <pr********@yah oo.com> wrote:

Obviously I am doing something wrong here.I imported your
clsReadTextFil e.txt to the MyDocuments folder.I pasted the code
Application.Lo adFromText acModule,"clsRe adTextFile",
"clsReadTextFi le.txt"
,but it errors ,saying ,it cannot read the clsReadTextFile .txt .Can you
please detail the steps how to go about the whole thing,please.
The text file i need to use is EMSTestFeed.txt .
Where do i fit this in your code?How do i read your class from the VBA
module.

Well, step 1 is to get the class into your Access DB. If that can't
be done (and it only has to be done _once_), then nothing will help
you any further.

Hmmm.... _Where_ did you paste the "Application.Lo adFromText..."
part? You _cannot_ do it in the code module. It _must_ be done in
the Immediate window. Nowhere else will work, or do. Note: This part
is not something you have to _every time_, it's just a one time thing
to get the class module into your project. (Rather like creating a
Form. Generally, you only have to create it once.)

The name of the text file you are trying to read doesn't matter at
this point. We'll take care of that after you have the
clsReadTextFile class module in your database.

--
Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing

[Roy]

Rich,
Almost there!!That took care of it.But i get another error at this
line saying that
"Item not found in this collection"

Error is at this point:

RS2(k) = str2 ' --this is the last column in table
RS2.Update
RS1.MoveNext
RetVal = SysCmd(acSysCmd SetStatus, "Parsing " & n)
n = n + 1

Loop
RS1.Close
RS2.Close

Thanks,
Roy

Rich P wrote:

Sorry about that. It should read like this:

..
Set RS2 = db.OpenRecordse t("tblParsedDat *a")
Do While Not RS1.EOF
str1 = RS1(0)

RS1 is the raw data table. Each field in RS1 contains the entire row
picked up from the textfile. It is the row that you are parsing based
on whatever your field delimeter is in the textfile.

Rich

*** Sent via Developersdex http://www.developersdex.com ***

[Roy]

Rich,
Almost there!!That took care of it.But i get another error at this
line saying that
"Item not found in this collection"

Error is at this point:

RS2(k) = str2 ' --this is the last column in table
RS2.Update
RS1.MoveNext
RetVal = SysCmd(acSysCmd SetStatus, "Parsing " & n)
n = n + 1

Loop
RS1.Close
RS2.Close

Thanks,
Roy

Rich P wrote:

Sorry about that. It should read like this:

..
Set RS2 = db.OpenRecordse t("tblParsedDat *a")
Do While Not RS1.EOF
str1 = RS1(0)

RS1 is the raw data table. Each field in RS1 contains the entire row
picked up from the textfile. It is the row that you are parsing based
on whatever your field delimeter is in the textfile.

Rich

*** Sent via Developersdex http://www.developersdex.com ***

[Rich P]

Hi Roy,

Try adding one more column to your ParsedData table. I think you are
probably short one column.

Rich

*** Sent via Developersdex http://www.developersdex.com ***