339483_fr-FR

liliconcom

JSL> Préservation des entrées par défaut pour la zone d'édition de texte: amélioration du code

Salut la communauté JMP,

J'ai joué avec un court script pour regrouper automatiquement la colonne en fonction d'une chaîne de début et de fin. exécuter pour exécuter que de tenir ces entrées par défaut dans un fichier séparé?

Voici mon code pour l'instant: des suggestions pour en améliorer une partie?

Names Default to Here (1);

dt = Current Data Table ();

CList = dt << get column names (string);

GList = {};


NCol = N Items (CList);

Try (dat = open("C:\AUTODAT.JMP", Invisible), 
  
  dat = new table ("AUTODAT", Invisible,
       Add Rows (2),
       New Column ("Entries", Character, Nominal, set values ({"NEW START", "NEW END"}))
        
      );
 );     
  
DefStart = column (dat, "Entries") [1];
DefEnd = column (dat, "Entries") [2]; 

Dlg = New Window (" AUTO-GROUPING: ENTER SEARCH STRINGS", 
 
 << Modal,
 Border Box (top (15), Bottom (15), Left (40), Right (40),
  V List Box (
   Text Box ("ENTER START STRING:"),
   ST = Text Edit Box (DefStart, Set Width (200)),
   
   Spacer Box (0,25),
   
   Text Box ("ENTER END STRING:"),
   ET = Text Edit Box (DefEnd, Set Width (200)),
   
   Spacer Box (0,25),
   
   Button Box ("OK", 
    StartString = ST << Get Text ();
    EndString = ET << Get Text ()
   ),
   
   Button Box ("CANCEL", 
    Close( dat, NoSave );
    Throw (1))
  )
  
 )
);

Column (dat, "Entries")  << set values (Eval List ({StartString, EndString}));

dat << Save As ("C:\AUTODAT.JMP", 1);

Close (dat, NoSave);

Switch = ((Length (StartString) > 0) * 10) + (Length (EndString) > 0); 

For (i = 1, i <= NCol, i++,

 Match (Switch, 
   11,
   if(Starts With (CList [i], StartString) & Ends With (CList [i], EndString), 
    Insert into (GList, CList [i])),
   10,
   if(Starts With (CList [i], StartString), 
    Insert into (GList, CList [i])),
   1, 
   if(Ends With (CList [i], EndString), 
    Insert into (GList, CList [i])),
   0, Throw (1)
   ) 
 
 
);


Group = dt << Group Columns (GList);

AutreScriptingRe: JSL> Préservation des entrées par défaut pour la zone d'édition de texte: amélioration du code

Ma manière standard de gérer ce que vous faites avec une table de données enregistrée est de sauvegarder les valeurs que je dois enregistrer, sous forme de JSL.Je crée juste une chaîne de texte avec le JSL requis pour initialiser les valeurs et l'enregistrer à l'aide de Save Text File ().Ensuite, lors des exécutions suivantes, j'utilise simplement un Include () pour initialiser les valeurs.

Re: JSL> Préservation des entrées par défaut pour la zone d'édition de texte: amélioration du codeSalut Jim,
Toujours au courant des choses et juste sur l'argent.
Merci,
TS