755955_ja-JP

liliconcom

行状態ハンドラを作成する

こんにちは、

行選択用のボタン ボックスを追加する JSL コードがあります。問題は、1 行しか選択されていない場合でも、重複したボックスが追加され続けることです。選択した行が 'n' 行の場合のみ、'n' ボックスを追加したいのです。行が選択されていない場合は、テーブル ボックス内のすべてのボックスを削除する必要があります。

1行を選択しただけで10個のボックスが追加されました。

Names Default To Here( 1 );

dt2 = Open( "$SAMPLE_DATA/Iris.jmp", invisible );


New Window( "",
	H List Box(
		Graph Builder(
			Size( 653, 571 ),
			Show Control Panel( 0 ),
			Variables( X( :Sepal length ), Y( :Sepal width ), Overlay( :Species ) ),
			Elements( Points( X, Y, Legend( 6 ) ) ),
			SendToReport(
				Dispatch( {}, "Sepal length", ScaleBox, {Min( 4.02451368343195 ), Max( 8.24903846153846 ), Inc( 1 ), Minor Ticks( 0 )} ),
				Dispatch( {}, "Sepal width", ScaleBox, {Min( 1.75 ), Max( 5.00400457665904 ), Inc( 1 ), Minor Ticks( 0 )} )
			)
		),
		Spacer Box( size( 10, 0 ) ), 

		Outline Box( "Petal Species",
			Spacer Box( size( 0, 10 ) ),
			Scroll Box(
				size( 350, 150 ),
				disoi = Table Box(
					colbox = Col Box( "Species" ), 
					//imvinum = Number Col Edit Box( "iMINum", {} ),
				
				)
			),
			disoi << set selectable rows( 0 ), 
		
			
	
				
		)
	)
);

f = Function( {this},
	dt2 << begin data update;
	
	list = {};
	
	checnro = N Items( dt2 << getselectedrows );
	
	For( i = 1, i <= checnro, i++,
		Insert Into( list, dt2:Species[dt2 << getselectedrows][i] );
		
		
	);

	For Each( {wascc, idx}, list, 
	//For( k = 1, k <= N Items( list ), k++, 
		
		colbox << append(
		
			Eval(
				Parse(
					"ex" || Char( idx ) ||
					" = Button Box( wascc
					, 
			
				
				New Window( \!"Wikipedia\!",
					<<TYPE></TYPE>

<LINGO-LABS id="lingo-labs-755955" slang="en-US" mode="CREATE"><LINGO-LABEL>自動化とスクリプト</LINGO-LABEL></LINGO-LABS>Re: 行状態ハンドラーを作成する

ありがとう、Jarmo!

まさにこれが私が望んでいるものです。

テーブルボックスの列を並べ替えることはできますか？いいえ、わかりました

Re: 行状態ハンドラーを作成する

何らかの方法で古い箱を取り除く必要があります。

これがあなたの望みどおりに機能するかどうかはわかりませんが、スクリプトにかなり大きな変更を加えました。

Names Default To Here(1);

dt2 = Open("$SAMPLE_DATA/Iris.jmp", invisible);
dt2 << Clear Select;

nw = New Window("",
	H List Box(
		Graph Builder(
			Size(653, 571),
			Show Control Panel(0),
			Variables(X(:Sepal length), Y(:Sepal width), Overlay(:Species)),
			Elements(Points(X, Y, Legend(6)))
		),
		Spacer Box(size(10, 0)), 
		Outline Box("Petal Species",
			Spacer Box(size(0, 10)),
			Scroll Box(
				size(350, 150),
				tb_species = Table Box(,<< set selectable rows(0))
			)
		)
	)
);

add_buttons = Function({a},
	selrows = dt2 << get selected rows;
	
	sel_species = Associative Array(dt2[selrows, "Species"]) << get keys;
	
	new_colbox = Col Box("Species");
	
	For Each({cur_species, idx}, sel_species,
		new_colbox << append(
			Button Box(cur_species
				, << Set Function(function({this},
					New Window("Wikipedia", Web Browser Box("https://en.wikipedia.org/wiki/Iris_" || (this << get button name)));
				))
				, << Underline Style(1),
			)
		)
	);
	
	Try(tb_species[ColBox(1)] << Delete Box());
	tb_species << append(new_colbox);
);

rs = dt2 << make row state handler(add_buttons);

Re: 行状態ハンドラーを作成する

さらに多くのポイントを選択するために f 関数が必要な場合、無限ループを回避できますか?

rs = dt << Make Row State Handler( f );

f = Function( {a},
	r = dt << Get Selected Rows;
	If( N Items( r ) > 0,
		dt << Go To( :lot );
		dt << Select Matching Cells();
	);
);

Re: 行状態ハンドラーを作成する

1 つの選択肢は、いくつかの追加チェックを追加することです。

• 新しい行が選択されました（新しい値も選択された可能性があります）
• そして、選択は<<一致するセルを選択によって行われなかった

おそらくまだかなり不格好ですが、おそらくこれが最善の策でしょう。選択範囲には（グローバル）データフィルターを使用する方が良いかもしれません。