72754_fr-FR

liliconcom

Est-il possible qu'un script jsl s'édite lui-même?

Salut,

Je voulais modifier un script jsl lors de l'exécution. La raison est la suivante. J'ai créé une interface graphique pour la corrélation des paramètres. La zone de liste des colonnes, les cases à cocher et les zones d'édition de texte ont la valeur par défaut. J'ai ajouté le bouton "Définir le courant comme valeur par défaut", ce qui signifie que tout ce qui est actuellement entré dans les champs sera le nouveau paramètre par défaut.

 

Vous trouverez ci-dessous la copie de script pour l'interface graphique uniquement. Ce que je veux, c'est écraser les valeurs du bloc SetDef si l'utilisateur appuie sur le bouton "Définir comme valeur par défaut".

 

Merci pour l'aide.

 

 

dt = Current Data Table();

SetDef = Expr(
     // Set Default Values
     corrcoldef = {:Name("ColName1")};
     fitcoldef  = {:Name("ColName2")};
     parcoldef  = {:Name("ColName3"),:Name("ColName4")};
     grpcoldef  = {:Name("ColName7"),:Name("ColName8")};
     
     chkb1 = 0; //Uncheck Fit Y by X    
     chkb2 = 1; //Check Fit Y by X (m=1)
     chkb3 = 1; //Check Output R^2 and Offset Table
     chkb4 = 0; //Uncheck Output Static JMP report
     ncolval = 4; //Number of plots per row in report window
);

GUI = Expr(
   reflist = {};
   nw = New Window ("Correlate",
       TextBox("   Generates one-to-one correlation plots."),
       SpacerBox(Size(1,10)),
       H List Box (
          SpacerBox(Size(10,1)),
          V List Box (
              Panel Box("Select Columns", 
                  ColSource = ColListBox(dt, all, nlines(18)),
                 ),
              SetDefb = Button Box("Set Current as Default")
                 
             ),
             
          SpacerBox(Size(5,1)),  
           
          V List Box ( 
             Panel Box ("",
                Line Up Box ( Ncol(2),
                    corrb = Button Box("Correlate By"),
                    corrcol = ColListBox(dt,Min Items(1),Max Items(1), nlines(1)),
                    fitb = Button Box("Fit Line By"),
                    fitcol = ColListBox(dt,Max Items(1), nlines(1)),
                    TextBox(" Reference"),
                    refcombo = Combo Box (reflist),
                    parb = Button Box ("Parameters"),
                    parcol = ColListBox (dt, Min Items(1), nlines(8), <<SET data="https://community.jmp.com/" type=""></SET>

 

Re: Est-il possible pour un script jsl de s'éditer lui-même?

J'ai soudain eu une idée. Stockez les valeurs par défaut dans un fichier texte externe et modifiez ce fichier à la place.

Mais encore, s'il y a de meilleures idées, s'il vous plaît faites le moi savoir.

 

Merci,

Shaira