DOCUMENT:Q241424  21-OCT-2000  [foxpro]
TITLE   :HOWTO: Export Memo Fields w/ Other Field Types to Text File
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS:5.0,5.0a,6.0
OPER/SYS:
KEYWORDS:kbAutomation kbvfp500 kbvfp500a kbvfp600 kbXBase kbGrpDSFox kbDSupport kbCodeSnippet

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

 - Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a, 6.0 
-------------------------------------------------------------------------------

SUMMARY
=======

This article demonstrates how to dynamically export records that contain Memo
fields in a table, together with the other field types, into a comma delimited
text file.

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

The sample code in this article follows this order:

1. Prompts for a source table (.dbf file).

2. Prompts for a target text file (.txt file).

3. Export the contents of the table to the text file.

The code scans and determines every field type and every record in the table and
then processes them accordingly to the data type:

   CLOSE ALL
   CLEAR ALL

   lcFieldString = ''
   lcMemo = ''

   USE GETFILE('dbf', 'Select DBF') && Prompts for table to be used.

   lnFieldCount = AFIELDS(laGetFields) && Builds array of fields from the
                                       && selected table.

   *!* Prompt for Output file and use Low-Level functions
   *!* to create it.
   lcTextFile = FCREATE(GETFILE('txt', 'Select Text'))

   *!* Starts scanning the table and converts the fields
   *!* values according to their types **
   SCAN
      WAIT WINDOW STR(RECNO()) + ' Of ' + STR(RECCOUNT()) NOWAIT
     
      FOR lnCount = 1 TO lnFieldCount
         lcType = laGetFields(lnCount, 2)

         IF lcType # 'G' && Don't try to turn a general field into a string
            lcString = EVALUATE(laGetFields(lnCount, 1))
         EndIf
         
         DO CASE
            CASE lcType = 'M' && Process the Memo Fields
               lnMemoLines = MEMLINES(EVALUATE(laGetFields(lnCount,1)))
               FOR lnLoop = 1 TO lnMemoLines
                  IF lnLoop < lnMemoLines
                     lcMemo = lcMemo + ;
                        ALLTRIM(MLINE(EVALUATE(laGetFields(lnCount, 1)), ;
                                      lnLoop)) + ' '
                  ELSE
                     lcMemo = lcMemo + ;
                        ALLTRIM(MLINE(EVALUATE(laGetFields(lnCount, 1)), ;
                                      lnLoop))
                  ENDif
               ENDfor
              
               lcString = lcMemo
               lcMemo = ''
            CASE lcType = 'G' && Process the General Fields
               lcString = 'Gen'
            CASE lcType = 'D' && Process the Date Fields
               lcString = DTOC(lcString)
            CASE lcType = 'T' && Process the DateTime Fields
               lcString = TTOC(lcString)
            CASE lcType = 'N' && Process the Numeric Fields
               lcString = STR(lcString, LEN(STR(lcString)), 2)
            CASE lcType = 'I' && Process the Integer Fields
               lcString = STR(lcString)
            CASE lcType = 'L' && Process the Logical Fields
               IF lcString = .T.
                  lcString = 'T'
               ELSE
                  lcString = 'F'
               ENDif
         ENDcase
        
         IF lnCount < lnFieldCount && Determines if the last field was
                                   && processed and sets the closing quote.
            lcFieldString = lcFieldString + '"' + lcString + '"' + ','
         ELSE
            lcFieldString = lcFieldString + '"' + lcString + '"'
         ENDif
      ENDfor

      FPUTS(lcTextFile, lcFieldString) && Writes string to the text file.
      lcFieldString = ''
   ENDscan

   FCLOSE(lcTextFile)

   CLOSE All
   CLEAR All
   WAIT WINDOW 'Text File Creation Completed' NOWAIT

REFERENCES
==========

For additional information exporting memo fields, click the article number below
to view the article in the Microsoft Knowledge Base:

   Q95722 How to Export Memo Fields to an ASCII File

Additional query words: kbdse

======================================================================
Keywords          : kbAutomation kbvfp500 kbvfp500a kbvfp600 kbXBase kbGrpDSFox kbDSupport kbCodeSnippet 
Technology        : kbVFPsearch kbAudDeveloper kbVFP500 kbVFP600 kbVFP500a
Version           : WINDOWS:5.0,5.0a,6.0
Issue type        : kbhowto

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

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 2000.