DOCUMENT:Q129401  11-OCT-2001  [foxpro]
TITLE   :Using Low-Level I/O to Remove Leading CR/LF Created by LIST
PRODUCT :Microsoft FoxPro
PROD/VER::2.6a,3.0,5.0,6.0,7.0
OPER/SYS:
KEYWORDS:kbcode

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, versions 3.0, 5.0, 6.0, 7.0 
 - Microsoft FoxPro for Windows, version 2.6a 
-------------------------------------------------------------------------------

SUMMARY
=======

The LIST TO FILE <filename> command places a CR/LF at the beginning of the
file <filename>. If the file created is used as input to another program,
it may be necessary to programmatically remove these two leading bytes. One way
of doing this is through the use of low-level file I/O functions.

MORE INFORMATION
================

The following code is an example of how to use low-level file functions to alter
a text file that begins with a carriage return/line feed pair:

   * Open the sample table Customer.dbf
      CLOSE ALL
      CLEAR ALL
      USE customer

      * Create the text file.
      IF "Visual" $ VERSION() && Check if you are running VFP 3.0 or later
      LIST TO FILE output.txt FOR country="USA"
      ELSE
      LIST TO FILE output.txt FOR state="FL"
      ENDIF
      * Now the text file has a leading CR/LF at the beginning.
      * To get rid of this, do the following:
      handle=FOPEN("output.txt",12)      && Low level open, read/write.
      IF handle > 0                      && Do you have a good open?
         * When opened, file pointer points at beginning of file.
         * To get size of file, seek end of file, return the number of bytes
         * the pointer was moved.
         SIZE=FSEEK(handle,0,2)
         FOR LOOP=2 TO SIZE
            =FSEEK(handle,LOOP,0)      && Go to data byte to be copied.
            the_char = FREAD(handle,1)
            =FSEEK(handle,LOOP-2,0)    && Where to write the data.
            =FWRITE(handle,the_char,1) && Write the character.
         ENDFOR
         * Now that the data in the file has been migrated two
         * bytes down to cover up the CR/LF at the beginning
         * of the file, read just the size of the file to
         * truncate the two garbage bytes at the end of the file.
         =FCHSIZE(handle,SIZE-2)
         =FCLOSE(handle)   && Done.
      ENDIF

Additional query words: VFoxWin FoxWin hard return cr / lf input output

======================================================================
Keywords          : kbcode 
Technology        : kbVFPsearch kbAudDeveloper kbFoxproSearch kbFoxPro260a kbVFP300 kbVFP500 kbVFP600 kbVFP700
Version           : :2.6a,3.0,5.0,6.0,7.0

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2001.