439820_zh-CN

liliconcom

怎样用脚本实现粘贴？

我按下面的脚本将第一列的带列名复制。
如何用脚本将复制内容到其他表中带列名粘贴？

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

 

简单的问题、我却不能实现。谢谢!

ScriptingRe: 怎样用具体的实现体现？

显然，

Main Menu( "Paste With Column Names" );

未实施。但是，以下代码将执行相同的功能

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

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

感谢专家!

 

我试着这样修改代码、但它是创建新列来粘贴。

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;