Text File (SOLVED)

[Jeff Barnes]

I have a text file the when opened with Notepad, all the data is strung together.
If I open the same file with UltraEdit it asks me "Do you want to convert test.asc to DOS format"
When I answer "yes" the data is separated into individual lines. This is what I am looking to get via code.

Does anyone know how I can do this conversion?
I want to be able to grab data via MemoLine() to get to the data I need.

Here is a sample of the text file (.asc) if anyone needs to see what I'm tallking about;
http://www.can-soft.net/dlnew/test.asc

[Massimo Linossi]

In this file the end of line is a chr(10) and not a chr(13) + chr(10).
You can read it in this way.

Code: Select all  Expand view

filename = "test.asc"

handle = fopen(filename)
stringa = space(500)
fread(handle, @stringa, 200)
if chr(13) + chr(10) $ stringa
    end_of_line = chr(13) + chr(10)
else
    if chr(13) $ stringa
        end_of_line = chr(13)
    else
        end_of_line = chr(10)
   endif
endif
fclose(handle)

handle = fopen(filename)
do while .t.
      stringa = space(500)
      if hb_freadline(handle, @stringa, { end_of_line },500 ) < 0
          exit
      endif

      //process stringa here

enddo
fclose(handle)

[nageswaragunupudi]

Code: Select all  Expand view

cText := memoread( cfile )
cText := StrTran( StrTran( cText, CRLF, Chr(10) ), Chr(10), CRLF )
MEMOWRIT( cFile, cText
 

[Jeff Barnes]

Thank you. Works perfectly now