353421_zh-CN

liliconcom

从剪贴板填充collistbox

我正在寻找一种从剪贴板中的列列表填充collistbox的方法。我尝试了getclipboard（）命令，但是由于返回的列表不是列名列表，因此该方法失败了。

 

对于背景，我要从一个数据表中复制一个列名列表（名称在行中列出），并将复制的列名列表用作另一数据表分析中的分析输入。

 

如果我只是打开分析平台（NN），然后右键单击X输入框，则可以粘贴列名称。

 

 

 

我希望这些条款显示在第二个框中：

因此，我将复制列名称并运行我的脚本，然后可以在可选框中选择列。

 

感谢您的任何想法！

 

脚本编写回复：从剪贴板填充collistbox

那真的很好！

我将您的代码添加到了此代码，很高兴继续：

selCols = dt << Get selected Columns( String );

obj2=new window("Reponse Variable",
   <<MODAL></MODAL>

回复：从剪贴板填充一个 collistbox

也许有更简单的方法，但我认为下面脚本中的变量 clip_items 可以帮助您入门。这将获取剪贴板中的每一行并查找匹配的列。脚本的其余部分选择数据表中的那些列。我从菜单中运行此脚本作为加载项的一部分。

 

names default to here(1);

dt = current data table();

//Get list of columns in clipboard
clip_input = Get Clipboard();
clip = clip_input;

clip_items = {};

done = 0;
for( i = 1, done == 0 & i <= 10000, i++,
 show(clip);
 If ( 
  N Items(Regex Match(clip,"[\!\r\!\n]")) == 0
 ,
  if( 
   length(clip) > 0
  , 
   Insert Into( clip_items, clip)
  );
  done = 1;
 ,
  thisrow = Regex(clip,"(.+?)[\!\r\!\n]","\!\1");
  if( length(thisrow) > 0, Insert Into( clip_items, thisrow) ) ;
  clip = Regex(clip,"\!\n(.*)","\1");
 );
  
);

if( i > 10000, throw("found more than 10000 variables"));

col_names = dt <<  Get Column Names( String );

For( i = 1, i <= N Items( col_names ), i++,
 if( contains( clip_items, col_names[i] ),
  Column( dt, i ) << Set Selected ( 1 );,
  Column( dt, i ) << Set Selected( 0 );,
 )
);<BR />