35706_es-ES

liliconcom

¿Cómo pedir título u otro texto a Journal in Dialog?

He estado haciendo un script que pregunta al usuario qué dos columnas de los datos originales se elegirán para Diario. Me las arreglé para hacer eso (vea el código) pero también quiero agregar un elemento para el cuadro de diálogo de entrada donde podría colocar cualquier texto que aparecerá más adelante en el Diario (preferiblemente antes de la tabla). No sé cómo agregar la opción "el usuario puede escribir texto" en el cuadro de diálogo ni cómo "imprimir" ese texto más adelante en el Diario. Sé que con 

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

puede agregar texto al diario, pero quiero preguntar el texto con el mismo tiempo que el cuadro de diálogo "qué dos columnas elegir".

 

Puede probar este script con cualquier tabla de datos, pero también adjunté una tabla muy simple con dos columnas.

  

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;

 

Gracias de antemano por cualquier pista.

 

 

 

Re: ¿Cómo pedir título u otro texto a Journal in Dialog?

Pruebe 'Ayuda> Índice de secuencias de comandos' y busque el 'Diálogo de columna'. Agregué 'Editar texto ()' al ejemplo dado para obtener el siguiente código.

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