COPY FIELDS TO with variable

[Marc Vanzegbroeck]

Hi,

If I do

Code: Select all  Expand view  RUN

copy fields NTWKNUM,NODENUM,MODNUM,SLOTNUM,NAME,PTDESC,KEYWORD,NODETYP,POINT_TYPE TO c:\temp\tpsdoc.dbf

it's working like expected.

Now I want the fields coming from a variable like this

Code: Select all  Expand view  RUN

vvelden = "NTWKNUM,NODENUM,MODNUM,SLOTNUM,NAME,PTDESC,KEYWORD,NODETYP,POINT_TYPE"
copy fields (vvelden) TO c:\temp\tpsdoc.dbf

It's not doing anything, I also get no error.

I already tried with

Code: Select all  Expand view  RUN

vvelden = "NTWKNUM,NODENUM,MODNUM,SLOTNUM,NAME,PTDESC,KEYWORD,NODETYP,POINT_TYPE"
copy fields &vvelden TO c:\temp\tpsdoc.dbf

Also without any result.
Is it possible with a variable?

[karinha]

Code: Select all  Expand view  RUN

       Formats: COPY TO <file> [<scope>] [FIELDS <list>] [FOR <expL>]
                       [WHILE <expL>] [TYPE <file_type>]
                COPY FILE <file1> TO <file2>
                COPY STRUCTURE TO <file> [FIELDS <list>]
                COPY TO <file> STRUCTURE EXTENDED

       COPY TO copies database records to another file.

       COPY <file> copies any file to another file.

       COPY STRUCTURE copies a database structure to another database.

       COPY TO ... STRUCTURE EXTENDED copies a database structure into
               another database, one record per field.

 

[Marc Vanzegbroeck]

João,

I know that is the format, but I wanted to store the fields in a variable, because, I want the fields, depending of the content of a database.

That was not working with the command.

I found a solution with __dbCopy

Code: Select all  Expand view  RUN

vvelden := { "NTWKNUM","NODENUM","MODNUM","SLOTNUM","NAME","PTDESC","KEYWORD","NODETYP","POINT_TYPE" }
 __dbCopy( "c:\temp\tpsdoc1.dbf", vvelden ,,,,, .F., )
 

[karinha]

https://vivaclipper.wordpress.com/tag/copy-to/

https://www.itlnet.net/programming/program/Reference/c53g01c/ngc5219.html

https://harbour.github.io/doc/clc53.html#copy-to-cmd

https://www.linguagemclipper.com.br/manual-harbour

Regards.