35706_ja-JP

liliconcom

DialogでJournalにタイトルやその他のテキストを尋ねる方法は？

私は、元のデータからどの2列をJournalに選択するのかをユーザーに尋ねるスクリプトを作成しています。私はそれをすることに成功しました（コードを見てください）が、私はあなたがJournalの後に現れるであろうどんなテキストも置くことができる入力ダイアログのための項目も加えたいです（テーブルの前に望ましい）。ダイアログに "ユーザーがテキストを書くことができる"オプションを追加する方法も、後にJournalでそのテキストを "印刷"する方法もわかりません。私はそれを知っています 

Current Journal () << Append (TextEditBox("Change Me"));

Journalにテキストを追加することはできますが、「どの2つの列を選択するか」というダイアログと同時にテキストを確認したいと思います。

 

このスクリプトは任意のデータテーブルで試すことができますが、2つの列を持つ非常に単純なテーブルも1つ添付しました。

  

dt = Current Data Table();

If( Is Empty( dt ),
 dt = Open()
);

DraftTabl = Current Data Table() ;//<< Get Name;

col_name_list = dt << get column names( string );
Show( col_name_list );

dialogA = Empty();
If( Contains( col_name_list, "A" ),
 dialogA = Column( "A" )
);
dialogB = Empty();
If( Contains( col_name_list, "B" ),
 dialogB = Column( "B" )
);

// Dialog to choose column roles, ...
dlg = Column Dialog(
 ACol = Col List( "A param",
  Min Col( 1 ),
  Max Col( 1 ),
  Columns( dialogA )
 ),
 BCol = Col List( "B param",
  Min Col( 1 ),
  Max Col( 1 ),
  Columns( dialogB )
 )
);
// I want to add here item for input where you could put any text that will show later in Journal

Show( dlg["Button"] );
If( dlg["Button"] == -1,
 Throw()
);

Remove From( dlg );
Eval List( dlg );
ACol = ACol[1] << get name;
BCol = BCol[1] << get name;


DT = Data Table(DraftTabl) <<
 Subset(
  columns ( Column(ACol), 
     Column(BCol),
    ),
  Output Table Name("Draft_table")
  )
;

Data Table("Draft_Table") << Journal;

 

何かヒントをありがとうございました。

 

 

 

再：どのようにダイアログのジャーナルにタイトルや他のテキストを依頼するのですか？

[ヘルプ]> [スクリプトインデックス]を試して、[列ダイアログ]を探してください。以下のコードを取得するために、与えられた例に 'Edit Text（）'を追加しました。

Names Default To Here( 1 );
Open( "$SAMPLE_DATA/Consumer Preferences.jmp" );
Column Dialog(
 ex y = ColList( "Y",
  Min Col( 1 ),
  Max Col( 2 ),
  Data Type( "Numeric" )
 ),
 ex x = ColList( "X",
  Max Col( 1 ),
  Modeling Type( {"Continuous", "Multiple Response"} )
 ),
 Line Up( 2,
  Text Box( "Alpha" ), ex = EditNumber( .05 ),
  Text Box( "Beta" ), ey = EditText( "xyz" )
 ),
 HList( cb = Check Box( "check", 1 ) ),
 HList( combo = Combo Box( "option1", "option2" ) ),
 HList( rb = RadioButtons( "a", "b" ) ),
 HList( et = EditText( "Edit Me" ) )
);