439820_es-ES

liliconcom

¿Cómo usar el script para pegar?

Copié los nombres de las columnas en la primera columna de acuerdo con el siguiente script.
¿Cómo usar un script para copiar contenido a otras tablas y pegarlo con nombres de columna?

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" );

 

Preguntas simples, pero no puedo darme cuenta de ellas. ¡Gracias!

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

Aparentemente, el

Main Menu( "Paste With Column Names" );

no está implementado.Sin embargo, el siguiente código realizará la misma función

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

Re: ¿Cómo usar el script para pegar?

¡Gracias expertos!

 

Intenté modificar el código de esta manera, pero creó una nueva columna para pegar.

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;