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

怎样用脚本实现粘贴？

lala — Fri, 09 Jun 2023 18:06:08 GMT

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

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

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

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

txnelson — Thu, 25 Nov 2021 09:41:35 GMT

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: 怎样用脚本实现粘贴？

lala — Thu, 25 Nov 2021 10:15:01 GMT

感谢专家!

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

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: 怎样用脚本实现粘贴？

lala — Thu, 25 Nov 2021 10:17:04 GMT

最新版的脚本录制虽然有改进、但还是很多操作是不能录制为脚本的。

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

txnelson — Thu, 25 Nov 2021 10:57:10 GMT

Extracting the script from a column, creates a script that will recreate a new column. If you want to move values from one data table into a column in another table, where the column already exists, you might want to use something like the code below

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

dt << Select Where( Row() == 1 );
d3 = dt << Subset( Selected Rows( 1 ), selected columns( 0 ) );
d3 << add rows(nitems(theValues)-1);
column(d3,1) << set values(theValues);