439820_en-US

liliconcom

How to use script to paste?

I copied the column names in the first column according to the following script.
How to use a script to copy content to other tables and paste with column names?

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << Clear Select();
dt << Select Columns( 1 );
Current Data Table() << Bring Window To Front;
Main Menu( "Copy With Column Names" );
dt << Select Where( Row() == 1 );
d3 = dt << Subset( Selected Rows( 1 ), selected columns( 0 ) );
Current Data Table( d3 );
d3 << Select Columns( 1 );
Current Data Table() << Bring Window To Front;
Main Menu( "Paste With Column Names" );

 

Simple questions, but I can't realize them. thanks!

ScriptingRe: 怎样用脚本实现粘贴？

Apparently, the 

Main Menu( "Paste With Column Names" );

is not implemented.  However, the following code will perform the same function

names default to here(1);
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
theScript = column(dt,1) << get script;
d3 = new table("new");
theScript;

Re: How to use script to paste?

Thanks experts!

 

I tried to modify the code like this, but it created a new column to paste.

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
theScript = column(dt,1) << get script;

dt << Select Where( Row() == 1 );
d3 = dt << Subset( Selected Rows( 1 ), selected columns( 0 ) );
Current Data Table( d3 );
d3 << Select Columns( 1 );

theScript;

Re: How to use script to paste?

Although the latest version of script recording has been improved, there are still many operations that cannot be recorded as scripts.