35706_zh-TW

liliconcom

如何在Dialog中向Journal發出標題或其他文字？

我一直在做一個腳本，要求用戶從Journal中選擇原始數據中的哪兩列。我已經設法做到這一點（參見代碼）但我想添加項目用於輸入對話框，您可以在其中放置稍後將出現在日記中的任何文本（最好在表格之前）。我不知道如何在對話框中添加“用戶可以寫文本”選項，也不知道如何在Journal中“打印”該文本。我知道 

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

你可以添加文本到期刊，但我想要同時詢問文本“選擇哪兩列”對話框。

 

您可以使用任何數據表來嘗試此腳本，但我還附加了一個包含兩列的非常簡單的表。

  

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;

 

提前感謝您的任何提示。

 

 

 

Re：如何在Dialog中向Journal發出標題或其他文字？

嘗試“幫助>腳本索引”並蒐索“列對話框”。我在給出的示例中添加了“編輯文本（）”以獲取下面的代碼。

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" ) )
);