35706_fr-FR

liliconcom

Comment demander un titre ou un autre texte à Journal in Dialog?

Je fais un script qui demande à l’utilisateur quelles sont les deux colonnes de données originales qui seront choisies pour le Journal. J'ai réussi à faire cela (voir le code) mais je veux ajouter aussi un élément pour le dialogue de saisie où vous pouvez mettre n'importe quel texte qui apparaîtra plus tard dans le Journal (préférable avant tableau) Je ne sais pas comment ajouter l'option "l'utilisateur peut écrire du texte" dans la boîte de dialogue ni comment "imprimer" ce texte ultérieurement dans le Journal. Je le sais avec 

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

vous pouvez ajouter du texte à Journal, mais je souhaite demander le texte avec le même temps que le dialogue "Les deux colonnes à choisir".

 

Vous pouvez essayer ce script avec n’importe quelle table de données, mais j’ai également joint une table très simple à deux colonnes.

  

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;

 

Merci d'avance pour tout indice.

 

 

 

Re: Comment demander un titre ou un autre texte à Journal in Dialog?

Essayez 'Aide> Index de script' et la recherche pour 'Dialogue de colonne'. J'ai ajouté 'Edit Text ()' à l'exemple donné pour obtenir le code ci-dessous.

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