Reading a text file wrong....

[NoteMe]

Sorry for the bad gode I have posted, but this is just a test. I am going to read a text file and splitt it up into an array, but something is wrong with the file reading...it skipps a lot of spaces. Open the text tile in notepad to see how it should be...



Cut and paste link:
http://www.geocities.com/note_ladybug/word.zip

[The Hobo]

From that link I get:

We're sorry, but this page is currently unavailable for viewing.

If this site belongs to you, please read this help page for more information and assistance.

For general questions see our main help area, or search for other member pages.

Try attaching it instead?

[NoteMe]

Sorry to big...nearly 200k....did you cut and paste the link Hobo?

[The Hobo]

Originally posted by NoteMe
Sorry to big...nearly 200k....did you cut and paste the link Hobo?

No...why is it so big?

[NoteMe]

It was a dictionary that is 1Mb zipped down to 100k + the app... myabe I can cheat and post it in two posts?

[NoteMe]

OK..now I think it is working...try the link...

http://www.geocities.com/note_ladybug/word.zip

[Aaron Young]

The link wasn't properly cased, here's the correct one: http://www.geocities.com/note_LadyBug/word.zip

The problem is, the file contains null characters (Chr(0)), resulting in the data being cut off.

When you open this in Notepad, it converts them to spaces, I suggest you do the same thing.

[NoteMe]

Thanks there....

but will I have to read the file first into a string, then replace all teh (Chr(0)) with spaces, and then print out?

[NoteMe]

OK...what do you actuall mean now?

Buffer = Replace(Buffer, Chr(0), " ")

??

[Aaron Young]

You need to convert them to spaces prior to splitting it into an
array or anything else that might interpret the null charcters as
the end of the line/string.

Public Function fnFileToStr(ByVal sFile As String) As String
  Dim iFile As Integer
  Dim sBuffer As String
  
  iFile = FreeFile
  Open sFile For Binary Access Read As iFile
    sBuffer = Space(LOF(iFile))
    Get #iFile, , sBuffer
  Close iFile
  fnFileToStr = sBuffer
End Function

Example:

sString = Replace(fnFileToStr("eng_nor.wb"), chr(0), " ")

[NoteMe]

Thanks Aaron Young, you are todays saver....it didn't help with just using the replace function as in my last post. So I tried binary reading as in your post, and everything worked as it should. I think that if I use the other way of reading the text file it just converts the chr(0) to "" automaticaly when it read the text. So again thanks....