905667_zh-CN

liliconcom

JMP 17.2 > 自定义报告 > 字符串列框 > 如何将长列表分成多列？

大家好，JMP 社区，

我正在尝试一个自定义报表（见下文），希望将不同长度的列表分布到String Col Box()中的多列中。例如，对于脚本中显示的列表，我希望将其元素分布到4列，每列17行。

简化的脚本（我删除了除基本行之外的所有内容）：

Names Default to Here (1);

datastring = {	"ASPM", "AURKA", "AURKB", "BIRC5", "BUB1", "BUB1B", "CCNB1", "CCNB2", "CCNE2", "CDC20", "CDC6", "CDCA2", "CDCA5", "CDCA8", "CDK1", "CDT1", 
				"CENPE", "CENPF", "CENPK", "CENPN", "CENPS", "CENPW", "DIAPH3", "DLGAP5", "ECT2", "ESCO2", "FAM83D", "HJURP", "KIF11", "KIF14", "KIF15", "KIF18A", 
				"KIF18B", "KIF23", "KIF2C", "KIF4A", "KIFC1", "KNL1", "MAD2L1", "MKI67", "NCAPG", "NCAPH", "NDC80", "NEK2", "NUF2", "NUSAP1", "OIP5", "PLK1", "PRC1", "PSRC1", 
				"PTTG1", "RACGAP1", "SGO1", "SGO2", "SKA1", "SKA3", "SPAG5", "SPC24", "SPC25", "TACC3", "TOP2A", "TPX2", "TRIP13", "TTK", "UBE2C", "UHRF1", "ZWILCH", "ZWINT"};

// The length of the list varies from 4 to 125 items, depending on the specific report

rep_w = New Window ("REPORT TEST",
	
	mainframe = HList Box("DATA",
		
		text_data = TableBox (Col Span Box ("MEMBERS", String Col Box ("Genes", datastring)))
		
	)
);

谢谢。

此致，

TS

自动化和脚本分享和交流成果视窗回复：JMP 17.2 > 自定义报告 > 字符串列框 > 如何将长列表分成多列？

这是实现您想要的一种方法。我将代码分解成单独的硬编码语句，假设您希望在最终代码中构建一些循环逻辑。

theList=rep_w[stringcolbox(1)]<
     <GET></GET>

回复：JMP 17.2 > 自定义报告 > 字符串列框 > 如何将长列表分成多列？

你好，txnelson，

感谢您的反馈，但这提供了一种将字符串列框的输入解析到表中的解决方案。我实际上在寻找其他方法：如何在字符串列框结构中将列表解析为多列？

最好的，

TS

回复：JMP 17.2 > 自定义报告 > 字符串列框 > 如何将长列表分成多列？

这是你想要的吗

Names Default to Here (1);

datastring = {	"ASPM", "AURKA", "AURKB", "BIRC5", "BUB1", "BUB1B", "CCNB1", "CCNB2", "CCNE2", "CDC20", "CDC6", "CDCA2", "CDCA5", "CDCA8", "CDK1", "CDT1", 
				"CENPE", "CENPF", "CENPK", "CENPN", "CENPS", "CENPW", "DIAPH3", "DLGAP5", "ECT2", "ESCO2", "FAM83D", "HJURP", "KIF11", "KIF14", "KIF15", "KIF18A", 
				"KIF18B", "KIF23", "KIF2C", "KIF4A", "KIFC1", "KNL1", "MAD2L1", "MKI67", "NCAPG", "NCAPH", "NDC80", "NEK2", "NUF2", "NUSAP1", "OIP5", "PLK1", "PRC1", "PSRC1", 
				"PTTG1", "RACGAP1", "SGO1", "SGO2", "SKA1", "SKA3", "SPAG5", "SPC24", "SPC25", "TACC3", "TOP2A", "TPX2", "TRIP13", "TTK", "UBE2C", "UHRF1", "ZWILCH", "ZWINT"};

// The length of the list varies from 4 to 125 items, depending on the specific report

rep_w = New Window ("REPORT TEST",
	
	mainframe = HList Box("DATA",
		
		text_data = TableBox (Col Span Box ("MEMBERS"))
		
	)
);

text_data<
     <APPEND></APPEND>

回复：JMP 17.2 > 自定义报告 > 字符串列框 > 如何将长列表分成多列？

@Thierry_S

以下是用 JSL 实现此操作的通用方法。我创建了一个函数，它需要一个原始列表和一个整数。该函数将原始列表拆分为 n 个较小的列表，并返回列表列表。如果原始列表中的项目数不能被 n 整除，则第 n 列将包含平衡的项目数。这样，​​该函数就具有通用性，方便您在处理列数较多或较少的表格时使用。

然后通过将每个列表作为字符串列框附加到表格框来创建表格：

Names Default to Here (1);

splitList_fxn = function( {list, n}, 

	// split a list into into n evenly divided lists and return a list of lists
	// if list items/n is not an integer, place the extra items in the nth column

	{i,j,k,n,lists,thisList,listSize,items},
	
	lists = {};
	items = n items( list );
	listSize = round( items/n );
	
	k = 0; // counter
	for( i = 1, i <= n, i++,
		thisList = {};
		if( i != n,
		
			// all but the last list
			for( j = (k*listSize)+1, j <= listSize*i, j++, 
				insert into( thisList, list[j] )
			),
			
			// last list will be the remaining items in case there is a remainder
			for( j = (k*listSize)+1, j <= items, j++,
				insert into( thisList, list[j] )
			)
		);
		k++;
		insert into( lists, eval list( list( thisList ) ) )
	);
	return( lists )
);

// number of columns
n = 4;

// original list
datastring = {	"ASPM", "AURKA", "AURKB", "BIRC5", "BUB1", "BUB1B", "CCNB1", "CCNB2", "CCNE2", "CDC20", "CDC6", "CDCA2", "CDCA5", "CDCA8", "CDK1", "CDT1", 
				"CENPE", "CENPF", "CENPK", "CENPN", "CENPS", "CENPW", "DIAPH3", "DLGAP5", "ECT2", "ESCO2", "FAM83D", "HJURP", "KIF11", "KIF14", "KIF15", "KIF18A", 
				"KIF18B", "KIF23", "KIF2C", "KIF4A", "KIFC1", "KNL1", "MAD2L1", "MKI67", "NCAPG", "NCAPH", "NDC80", "NEK2", "NUF2", "NUSAP1", "OIP5", "PLK1", "PRC1", "PSRC1", 
				"PTTG1", "RACGAP1", "SGO1", "SGO2", "SKA1", "SKA3", "SPAG5", "SPC24", "SPC25", "TACC3", "TOP2A", "TPX2", "TRIP13", "TTK", "UBE2C", "UHRF1", "ZWILCH", "ZWINT"};

// The length of the list varies from 4 to 125 items, depending on the specific report

// split the original list into n lists of equal size
col_lists = splitList_fxn( datastring, n );

// create table box and append string col boxes with each list
table = tablebox();
for each( {list,index}, col_lists,
	table << append( string col box( "Col " || char(index), list ) )
);

// create report window
rep_w = new window( "REPORT TEST", 
	
	mainframe = HList Box("DATA",
		table	
	)	
);

n = 4

n = 8

回复：JMP 17.2 > 自定义报告 > 字符串列框 > 如何将长列表分成多列？

splitList_fxn = function( {list, n}, 
	{default local},
	lists = {};
	
	Nparts =ceiling(nitems(list)/n);
	i=0;
	
	while(nitems(list),
	i++;
	chunk = remove from (list, 1,Nparts);
	Insert Into(lists, eval list({chunk}));
	);
	
	if(i
     <N></N>

<P><BR /><CODE class=" language-jsl">Insert Into(lists, eval list({chunk})); ?
It's need till:
插入：Flatten(0|1)