FileSystemObject not reading lines

Attempting to use FileSystemObject for the first time and running into trouble. I am using the code below on a file (sent to me) and I cannot figure out why it won't work. Seems the AtEndOfStream flag is set to True as soon as the file is read, instead of after all of the lines are processed. Not sure how to handle. Can anyone point me in the right direction? I have attached the sample file as well as the code

I should mention, I created my own text file and the code worked, so I believe the txt file I received has some issues, but I cannot seem to figure out what the issues are or how to fix them. I did my own searches for ^13 using MS Word and found CR's at the end of every line, however the code below didn't see the individual lines.

I couldn't find anywhere on the internet that specifically told me what the AtEndOfStream property was looking for (CR, LF, ???) so I am puzzled.

Please Login or Register  to view this content.

Your test text file has vbCrLf at the end of each line ... Chr(10) and Chr(13)

The following code reads the whole text file into a string and then splits the rows into an array using Chr(13). It removes the Chr(10).

The whole string is output to cell A1; the individual rows are output to cells A2 down.

Various debug.print statements identify specific characters in the text. You should be able to use this method to identify what characters your data string has.

Hope this helps:

Please Login or Register  to view this content.

Regards, TMS

however the code below didn't see the individual lines.

Yes it does, at least in the test file. It works just fine. But, if the file isn't structured correctly, who knows.

Regards, TMS

Can you post a copy of the file you are having problems with?

Is that the file you are having problems with?

Heh, heh, that was the first thing I changed to test.

I assumed that it was an oversight and that you were actually able to read the file.





If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.