35706_de-DE

liliconcom

Wie kann ich Journal in Dialog mit dem Titel oder einem anderen Text fragen?

Ich habe ein Skript geschrieben, das vom Benutzer fragt, welche Spalten aus den Originaldaten für Journal ausgewählt werden. Ich habe es geschafft, das zu tun (siehe den Code), aber ich möchte auch einen Eintrag für den Eingabedialog hinzufügen, in den Sie Text einfügen könnten, der später im Journal erscheinen soll (vor der Tabelle). Ich kann nicht die Option "Benutzer kann Text schreiben" im Dialog hinzufügen oder den Text später im Journal "drucken". Ich weiß das mit 

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

Sie können Text zu Journal hinzufügen, aber ich möchte den Text gleichzeitig mit dem Dialog "Welche zwei Spalten" auswählen.

 

Sie können dieses Skript mit jeder Datentabelle ausprobieren, aber ich habe auch eine sehr einfache Tabelle mit zwei Spalten angehängt.

  

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;

 

Vielen Dank im Voraus für jeden Hinweis.

 

 

 

Re: Wie kann ich den Titel oder einen anderen Text zu Journal in Dialog stellen?

Versuchen Sie 'Hilfe> Skriptindex' und suchen Sie nach 'Column Dialog'. Ich habe 'Edit Text ()' zu dem Beispiel hinzugefügt, um den Code unten zu erhalten.

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