35706_it-IT

liliconcom

Come chiedere titolo o altro testo a Journal in Dialog?

Ho fatto uno script che chiede all'utente quali due colonne dei dati originali saranno scelte per Journal. Sono riuscito a farlo (vedi il codice) ma voglio aggiungere anche l'elemento per la finestra di dialogo di input in cui puoi inserire qualsiasi testo che verrà visualizzato più avanti nel Diario (preferibile prima della tabella). Non so come aggiungere l'opzione "utente può scrivere testo" nel dialogo né come "stampare" quel testo più tardi in Diario. Lo so con 

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

puoi aggiungere del testo al diario, ma voglio chiedere al testo con lo stesso tempo della finestra di dialogo "quali due colonne scegliere".

 

Puoi provare questo script con qualsiasi tabella di dati, ma ho anche allegato una tabella molto semplice con due colonne.

  

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;

 

Grazie in anticipo per qualsiasi suggerimento.

 

 

 

Ri: Come chiedere titolo o altro testo a Journal in Dialog?

Prova 'Help> Scripting Index' e seraching per 'Column Dialog'. Ho aggiunto "Modifica testo ()" all'esempio fornito per ottenere il codice seguente.

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