521798_ko-KR

liliconcom

툴바와 유사한 데이터 테이블 목록에 대한 특수 표시 상자 요소 추가

현재 툴바에서 이미 발견된 것과 유사한 기능을 스크립팅하는 것은 꽤 번거롭습니다. 이 목적으로 사용할 수 있는 새로운 요소를 추가하면 자동 업데이트되어야 합니다. 이것은 사용자가 현재 데이터 테이블을 변경하거나 앞으로 가져오거나 현재 데이터 테이블이 무엇인지 빠르게 볼 수 있도록 사용자 인터페이스에 추가하는 꽤 일반적인 유형의 요소입니다.

자동화 및 스크립팅Re: 툴바와 유사한 데이터 테이블 목록에 대한 특수 표시 상자 요소 추가

"도구 모음에서 이미 볼 수 있는 것과 비슷한 기능"이란 데이터 테이블을 열거나, 이름을 바꾸거나, 닫을 때 목록이 업데이트되는 콤보 상자를 의미합니다.

이 기능은 툴바와 약간 다릅니다. 현재 데이터 테이블이 변경될 때에도 테이블을 변경하지 않지만 콤보 상자의 << Set 함수와 비슷한 방식으로 트리거됩니다.

사용 사례:

• 다양한 종류의 데이터 테이블에 대해 복잡한 분석을 수행할 수 있는 도구가 있는데 해당 도구를 시작하는 데 시간이 꽤 오래 걸립니다.
• "일반적인" 경우 Current Data Table()에서 도구를 실행하면 됩니다. 하지만 여러 테이블에서 실행하려면 시작 시간이 오래 걸리므로 사용하기 쉬운 테이블 체인저가 있으면 좋습니다.

예를 들어, 데이터 테이블 도구 추가 기능은 목록 상자와 테이블 목록 새로 고침 버튼이 있는 추가 기능 중 하나이며, 이를 이 요소로 바꿀 수 있습니다(UI에 적합하다면).

Re: 툴바와 유사한 데이터 테이블 목록에 대한 특수 표시 상자 요소 추가

그 스크립트는 당신이 원하는 것이 무엇인지 더 잘 알려주지만, 여전히 불분명한 것은 " 툴바에서 이미 발견된 것과 유사한 기능"이란 말이 무슨 뜻인지입니다. 모든 스크립트 보고서 창에서 사용할 수 있는 모든 열린 테이블을 표시하는 새 표시 상자를 원하십니까? 테이블에서 열을 선택하는 것이 중요합니까? 이것을 어디에 사용할 수 있는지 예를 설명해 주시면 도움이 될 것입니다.

Re: 툴바와 유사한 데이터 테이블 목록에 대한 특수 표시 상자 요소 추가

코드는 약간 지저분한데, 내 도구 중 하나에서 "빌려온" 것뿐이기 때문입니다(아마도 이것을 클래스에 써야 할 것입니다). 하지만 기본적으로:

1. 초기 데이터 테이블 목록과 현재 선택으로 설정된 현재 데이터 테이블이 있는 콤보 상자가 있습니다.
   1. 값 변경(데이터 테이블 변경)에 따라 필터 콜 선택기를 업데이트하는 콤보 상자에 기능을 설정했습니다. 현재 데이터 테이블이 변경되거나 현재 데이터 테이블이 변경될 때 변경되지 않습니다.
2. 콤보 상자에서 볼 수 있는 것과 동일한 테이블을 사용하도록 되어 있는 필터 색상 선택기가 있습니다.
3. 저는 데이터 테이블 목록에 구독하여 새 테이블, 이름 변경 및 데이터 테이블 닫기를 추적합니다. 그리고 함수는 이러한 모든 변경 사항과 콤보 상자에 미치는 영향을 관리하려고 합니다.
4. 창이 닫히면 데이터 테이블 목록에 대한 구독이 제거됩니다.

코드 예시:

더 보기...

Names Default To Here(1);

// To initialize Combo Box
init_dt_list = Get Data Table List() << Get Name;
If(N Items(init_dt_list) == 0,
	Throw("No tables open");
);

dt = Current Data Table();
init_dt_idx = Contains(init_dt_list, dt << get name());

nw = New Window("test",
	window:dt = dt;
	H List Box(
		Lineup Box(N Col(2),
			window:cb_table = Combo Box(init_dt_list, << Set(init_dt_idx), << Set Function(function({this},
				// must be done this way to recover from no tables open?
				If((this << get selected) != "(SELECT TABLE)", 
					all_items = this << get items;
					If(Contains(all_items, "(SELECT TABLE)"),
						this << Remove Item(Contains(all_items, "(SELECT TABLE)"));
					);
					window:dt = Datatable((this << get selected));<BR />
					// redo filter col selector
					(window:ob_column_selection << child) << Delete Box();
					Eval(EvalExpr(nw:ob_column_selection << Append(V List Box(
						window:fcs = Filter Col Selector(Datatable(Expr(Datatable(window:dt))), << Set N Lines(5)),
						window:fcs[IfBox(1)] << Set(1);
					))));
				);
				)),
				<< Set Tip("Data Table")
			),
			window:btn_table = Button Box("", << Set Function(function({this},
					window:dt = Datatable(window:cb_table << Get Selected);
					window:dt << Bring Window To Front;
				)),
				<< Set Icon("ActivateDataTable"),
				<< Set Tip("View Data Table")
			)
		),
		window:ob_column_selection = Outline Box("Column Selector",
			V List Box( // Necessary evil for easier filter col selector updating
				window:fcs = Filter Col Selector(Datatable(dt), << Set N Lines(5)),
				window:fcs[IfBox(1)] << Set(1)
			)
		)
	)
);


// Functions for different changes in data table list
Eval(EvalExpr(f_open = function({dtab},
	cur_dts = Reverse(Get Data Table List() << Get Name);
	cur_dt = Expr(nw:cb_table) << Get Selected;
	If(cur_dt == "(no tables)",
		nw:dt = Datatable(dtab);
	);
	Expr(nw:cb_table) << Set Items(cur_dts);
	Expr(nw:cb_table) << Set(Contains(cur_dts, cur_dt));
	If(N items(cur_dts) == 1,
		// add (SELECT TABLE) temp item to recover from empty table situation
		Expr(nw:cb_table) << Append Item("(SELECT TABLE)");
		Expr(nw:cb_table) << Set(2, Run Script(0));
	);
)));
	
Eval(EvalExpr(f_rename = function({dtab, b},
	cur_dts = Reverse(Get Data Table List() << Get Name);
	cur_dt = Expr(nw:cb_table) << Get Selected;
	Substitute Into(cur_dts, b, (dtab << get name));
	If(cur_dt == b,
		cur_dt = dtab << get name;
	);
	Expr(nw:cb_table) << Set Items(cur_dts);
	Expr(nw:cb_table) << Set(Contains(cur_dts, cur_dt));
)));

Eval(EvalExpr(f_close = function({dtab},
	cur_dts = Reverse(Get Data Table List() << Get Name);
	Remove From(cur_dts, Contains(cur_dts, dtab << get name));
	cur_dt = Expr(nw:cb_table) << Get Selected;
	If(cur_dt == dtab << get name(),
		cur_dt = Current Data Table() << get name;
	);
	nw:cb_table << Set Items(cur_dts);
	Expr(nw:cb_table) << Set(Contains(cur_dts, cur_dt));
	
	If(N Items(cur_dts) == 0,
		nw:cb_table << Set Items({"(no tables)"});
	);
	
)));

// Subscription to data table list
aSub = Subscribe to Data Table List(, OnOpen(f_open));
Eval(EvalExpr(Subscribe to Data Table List(Expr(aSub), On Rename(f_rename))));
Eval(EvalExpr(Subscribe to Data Table List(Expr(aSub), OnClose(f_close))));

// To remove subscription
Eval(EvalExpr(nw << On Close(
	Try(Unsubscribe to Data Table List(Expr(aSub), "ALL"));
)));

제가 원하는 것은 이 동일한 작업을 관리하는 더 간단한 요소입니다. 저는 이것을 클래스로 직접 작성할 수 있지만 이것이 사용자 인터페이스를 만드는 다른 JSL 스크립터에게도 유용할 수 있다고 생각합니다. 이것을 관리하는 간단한 방법은 데이터 테이블 구독(테이블 목록 새로 고침) 대신 버튼을 사용하는 것이지만, 이 방법이 훨씬 더 깔끔할 수 있습니다.

Re: 툴바와 유사한 데이터 테이블 목록에 대한 특수 표시 상자 요소 추가

내 목적에는 툴바를 사용하는 것만으로는 충분하지 않습니다.

저는 "대체로" 제가 원하는 것을 하는 스크립트를 썼지만, 그것을 쓰는 것은 불필요하게 복잡합니다(제 생각에는). 9월에 직장에 복귀하면 여기에 공유하겠습니다.

Re: 도구 모음과 유사한 데이터 테이블 목록에 대한 특수 표시 상자 요소 추가 - 상태가 다음으로 변경됨: 정보 필요

@jthi 툴바란 모든 보고서 창의 맨 위에 표시될 수 있는 JMP 툴바를 말하는 건가요?

JMP 툴바를 사용자 정의할 수 있습니다. 여기에 설명되어 있습니다: https://www.jmp.com/support/help/en/16.2/index.shtml#page/jmp/customize-toolbars.shtml# . 이것이 귀하의 요구 사항을 충족합니까?

그렇지 않다면, 당신이 하고 싶은 것에 대한 모형, 스크립트 또는 와이어프레임을 공유해 주실 수 있나요?