Problems reading text files RESOLVED

[Davos]

I have these very ordinary text files with lines terminated with char. return and line feeds. When I try to open them using the Open statement and then load into a variable the first line and look for the vbCrLf bit I can't find it.

Now, if I copy and paste the content of the files and create a new file with a similar name and extension, it works fine.

Any one know what is wrong here?

Thanks.

[Memnoch1207]

look for Chr(10) and Chr(13)

[Davos]

Still same problem.

any other idea?

Seems to be something to do with how VB opens the file. Beast me as to what it is.

[jdc2000]

Post the code you are using to read the files.

[Davos]

FileN = FreeFile
    Open CommonDialog1.FileName For Input Shared As #FileN
        wholeFile = Input(LOF(1), #FileN)      'read whole file
    Close #FileN
    whleF() = Split(wholeFile, vbCrLf, -1, vbTextCompare)   ' create array

[MartinLiss]

wholeFile = Input(LOF(#FileN), #FileN)

[jdc2000]

Try this:

FileN = FreeFile
    Open CommonDialog1.FileName For Input Shared As #FileN
        wholeFile = Input(LOF(1), #FileN)      'read whole file
    Close #FileN
    If InStr(1,wholeFile,Chr$(13) + Chr$(10)) = 0 Then MsgBox "CrLf not found",,"Error"
    whleF() = Split(wholeFile, vbCrLf, -1, vbTextCompare)   ' create array

[Davos]

Jd, the point is the crlf is THERE. It's the programme that is not pick it up.

And using #FileN inside the LOF does not work.

[MartinLiss]

From Help

Editing Files Opened for Sequential Access
If you want to edit a file, first read its contents to program variables, then change the variables, and finally, write the variables back to the file. The following sections discuss how to edit records opened for sequential access.

Reading Strings from Files
To retrieve the contents of a text file, open the file for sequential Input. Then use the Line Input #, Input( ), or Input # statement to copy the file into program variables.

Visual Basic provides statements and functions that will read and write sequential files one character at a time or one line at a time.

For example, the following code fragment reads a file line by line:

Dim LinesFromFile, NextLine As String

Do Until EOF(FileNum)
Line Input #FileNum, NextLine
LinesFromFile = LinesFromFile + NextLine + Chr(13) + Chr(10)
Loop

Although Line Input # recognizes the end of a line when it comes to the carriage return–linefeed sequence, it does not include the carriage return–linefeed when it reads the line into the variable. If you want to retain the carriage return–linefeed, your code must add it.

You can also use the Input # statement, which reads a list of numbers and/or string expressions written to the file. For example, to read in a line from a mailing list file, you might use the following statement:

Input #FileNum, name, street, city, state, zip

You can use the Input function to copy any number of characters from a file to a variable, provided the variable is large enough. For example, the following code uses Input to copy the specified number of characters to a variable:

LinesFromFile = Input(n, FileNum)

To copy an entire file to a variable, use the InputB function to copy bytes from a file to a variable. Since the InputB function returns an ANSI string, you must use the StrConv function to convert the ANSI string to a UNICODE string as follows:

LinesFromFile = StrConv(InputB(LOF(FileNum), FileNum), vbUnicode)

[Davos]

Thanks Martin. It's the hash sign that made it show errors. The code still does not work. I'm posting the text file I work with.

Thanks to all.

[Davos]

Text file again.

[hellisher]

Hello, i tried to load your file with notepad. and it´s screwed up.. But in textpad it works.. Becuase it can read "unix" text files.. Don´t realy know the diffrent.. But anyway i have a code that fixes the vbCrLf in the file!

Just get the text in to a textbox then add this text to a button or something! And press it! :-)

Text1.Text = Replace(txt_Main.Text, Chr(10), vbCrLf, 1, Len(Text1.Text))

[Davos]

Ok, thanks. Will try that.

[Davos]

Yep! That did the trick. I simply have to use chr(10) and not 13 or vbcrlf.

Thanks to all.

[MartinLiss]

Please do everyone a favor and add Resolved to the subject of yourv first post in this thread.