339483_fr-FR

liliconcom

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

Bonjour la communauté JMP,

J'ai joué avec un court script pour regrouper automatiquement les colonnes en fonction d'une chaîne de début et de fin. Bien que cela fonctionne correctement sur ma machine locale, j'aimerais savoir s'il existe un meilleur moyen de conserver les entrées par défaut pour les zones d'édition de texte de exécuter pour exécuter plutôt que de conserver ces entrées par défaut dans un fichier séparé ?

Voici mon code jusqu'à présent : Une suggestion 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);

Mélange et nettoyage des donnéesRe: JSL > Préservation des entrées par défaut pour la zone d'édition de texte : amélioration du codeSalut Jim,
Toujours au top et juste sur l'argent.
Merci,
TSRe: 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 consiste à enregistrer les valeurs que je dois enregistrer, au format JSL.Je crée simplement une chaîne de texte avec le JSL requis pour initialiser les valeurs et la sauvegarder à l'aide de Save Text File().Ensuite, lors des exécutions suivantes, j'utilise simplement un Include() pour initialiser les valeurs.