help needed
Bookit Enterprises
bookit.grant at gmail.com
Tue Sep 15 17:10:38 EDT 2020
I am doing some code to do a data dump from Studio, for one of my clients who is moving to another vendor.
I have the following code, which works just fine, gathers all the data, puts it in a spreadsheet named after the file format it came from:
Do $files.$makelist($ref.$name) Returns iFilesList ;; gather existing slots
Do iFilesList.$redefine(iFileName)
Calculate iPath as sys(11)
Calculate iPath as mid(iPath,1,pos('books',iPath)-1) ;; path to my df storage folder
Set current list iFilesList
For each line in list from 1 to #LN step 1 ;; get all the data from each slot
Load from list
If iFileName='FGlobalVariables'|iFileName='#APPLICATION'|iFileName='#SLOTS’ ; FGlobalVariables is memory only
Else
Set main file {[iFileName]}
Set read/write files {[iFileName]}
Clear main file
Set current list iDataTransferList
Define list {[iFileName]}
Repeat
Add line to list
Next
Until flag false
Set print or export file name {[con(iPath,iFileName)]}
Prepare for export to file {Tab-delimited}
Export data iDataTransferList
Set current list iFilesList
End If
End For
Close data file
However, I would like to include the field names as the first line of the exported list, which is essentially the list definition.
Because the list is defined by the field names, some of which are numeric, or boolean, so I think I need to export the field names first, then do the ‘Export data’ command. But I can’t seem to wrap my old brain around how to do it.
Any ideas you could help me with?
Grant Thiessen
More information about the omnisdev-en
mailing list