842828_zh-CN

liliconcom

脚本编写者俱乐部希望添加到脚本索引示例中的优秀/有价值的脚本示例集合

在我们上次的会议中，我们提出了收集好的例子的想法，这些例子可以作为示例添加到 JMP 的脚本索引中。

请在评论部分添加您的想法，并附上社区帖子的链接，或者在评论中添加代码作为示例。请务必指定示例与哪个函数相关（您希望在哪里看到此示例！

我们会将所有建议提供给我们的支持团队，并提供给开发人员，以便他们可以考虑添加其中至少一些。

措施：

1. 在评论区添加你的建议
2. 点赞你喜欢的，希望可以添加

我们至少在这篇文章中获得了一个有价值的示例列表，它本身应该已经非常有帮助了。

谢谢！

回复：脚本俱乐部希望将优秀/有价值的脚本示例集合添加到脚本索引示例中

对于新列() & << 设置属性() ，请添加链接至
动态编写 JSL 代码
[或者，可以添加指向 Substitute 和 Expr 的链接。
问题：只有知道答案的用户才能找到答案]

Names Default to Here(1);

// Open a sample data table
dt = Open("$SAMPLE_DATA/Cleansing.jmp");

// Values previously obtained from a lookup table and assigned to variables as:
myLSL = 6;
myUSL = 8;
myTarget = 7;

// Use the variables to set the spec limits column property
Eval(Eval Expr(
    Column(dt, "pH") << Set Property(
        "Spec Limits",
        {LSL( Expr(myLSL) ), USL( Expr(myUSL) ), Target( Expr(myTarget) ), Show Limits( 1 )}
    );
));

回复：脚本俱乐部希望将优秀/有价值的脚本示例集合添加到脚本索引示例中

我总是忘记 Eval()、Eval Expr() 和 Expr() 如何协同工作，因此我已将此页面添加为书签，并且我专门使用了链接页面中的这段 JSL：

//Eval Expr
For( i = 1, i <= N Items(cols), i++,
       Eval( Eval Expr(
              dt << New Column( 
                    "2 * " || Char( cols[i] ),
                    Numeric,
                    "Continuous",
                    Formula( As Column( Expr( Char( cols[i] ) ) ) * 2)
              )
       ) )
);

回复：脚本俱乐部希望将优秀/有价值的脚本示例集合添加到脚本索引示例中

For Get Environment Variable():

uname = Get Environment Variable( "USERNAME" );

来自： https /community.jmp.com/t5/Discussions/computer-name/mp/753036/highlight/true#M93482

回复：脚本俱乐部希望将优秀/有价值的脚本示例集合添加到脚本索引示例中

在为了循环的描述中，添加数据表索引的链接，例如：
https://community.jmp.com/t5/Uncharted/Data-table-subscripting/ba-p/21013

回复：脚本俱乐部希望将优秀/有价值的脚本示例集合添加到脚本索引示例中

我对 Eval()、Substitute()、Expr() 也有同样的技巧，特别是涉及列的一系列示例。

dt = Open("$SAMPLE_DATA/Tablet Production.jmp");
ColList = dt << Get Column Names( Continuous );

// New column
For( i = 1, i <= N Items( colList ), i++,
	Eval(Substitute(								
		Expr(										
			newCol = dt << New Column( 
				col_Name,							
				Numeric,
				"Continuous", 
				Format( "Percent", 12, 2 ),
				Formula(As Column(col1) / Col_Mean	)); 	),
		Expr(col_Name), "Ratio " || Char(colList[i]) || " vs. Col Mean",					
		Expr(col1),Column(dt,ColList[i]),
		Expr(Col_Mean), Col mean(Column(dt,ColList[i])) 
)));