Exporting tables?

[lemonjuice]

I want to allow the user to create a backup by exporting all the files of the application to the selected destination. When I try to do this I can only select a single table from the the Export <tableName> As dialog box. How do I export all the tables at once to the selected directory?

 

[footpad]

lemonjuice,

You need to do this with ObjectPAL. Here's one way to do it:

method pushButton(var eventInfo Event)
var
   astrTables    Array[] String
   siCounter     SmallInt
   strFilename   String
endVar

   enumDataBaseTables( astrTables, ":work:", "*.db" )
   for siCounter from 1 to astrTables.size()

      ; update the user on progress
      Message( "Exporting Table ", siCounter,
               " of ", astrTables.size(), "..." )

      ; extract the filename
      strFilename = astrTables[ siCounter ]
      strFilename =
         strFilename.substr( 1,
            strFilename.search( "." ) - 1 )

      ; export the table
      exportASCIIVar( astrTables[ siCounter ],
                      strFilename + ".txt" )

   endFor
   beep()
   Message( "All tables exported..." )

endMethod

Now, this version exports the DB's to TXT files of the same name in the same directory, assumes your tables are in :WORK:, and contains very little error-checking. You'll want to beef this up for a production application, but it should serve as a starting place.

Hope this helps...

-- Lance

 

[JBirdieH]

I need to export a table with tab sets (which would be ascivar). The problem comes when I read out of my file and save to the clipboard, I lose the formatting. I've tried formatting my file, but it loses the formatting when the export is called again. I can't figure out how to use the rtf. readfromrtf always fails. Ultimately I want the user to insert from the clipboard a perfectly formatted table (now just formatted text). HELP! Thanks.