468046_fr-FR

liliconcom

Est-il possible d'ajouter des zones d'édition de texte à tous les scripts d'un journal à l'aide de JSL

Salut la communauté JMP,

 

Je me demandais s'il serait possible de créer un script pour la génération d'un journal contenant des tableaux et/ou des figures sélectionnés, y compris une zone d'édition de texte pour chaque tableau/figure.

 

Je suis tombé sur un complément qui fait une partie de ce que je voudrais faire : https://community.jmp.com/t5/JMP-Add-Ins/Run-All-Table-Scripts/ta-p/42863

 

Je ne suis intéressé que par l'option Rapport en mosaïque, mais j'aimerais l'ajout d'une zone d'édition de texte pour tous les scripts sélectionnés, car j'aimerais y ajouter des commentaires. J'ai pu ajouter une zone d'édition de texte au début et à la fin du journal, mais je n'arrive pas à comprendre (si et) comment les ajouter pour chaque script. Le nombre de scripts sélectionnés changera en fonction du nombre de chiffres nécessaires pour le journal.

 

Pour mes besoins, j'ai pris des parties du complément Run All Table Scripts que je pouvais utiliser et j'ai essayé de le modifier. Jusqu'ici sans succès. Quelqu'un a-t-il des suggestions sur la façon d'ajouter des zones d'édition de texte à tous les scripts d'un journal ?

 

//This script is part of the Run All Table Scripts Add-in written by nickholmes13: https://community.jmp.com/t5/JMP-Add-Ins/Run-All-Table-Scripts/ta-p/42863.

Names Default To Here( 1 );
dt = Current Data Table();
appName = "Run All Table Scripts";

If (IsEmpty(dt),
 Try(dt=Open(), Show("No data table is open so the Data Table Script Runner tool could not execute."));
);
If(IsEmpty(dt),
 Stop();
);

Wait(.5);

dtTitle = dt << Get Window Title();//Get title of data table
allScripts = dt <<GET table="" script="" names="">"||dtTitle||". Be aware that all table scripts will be run, even if they do not create reports. Also note that applications created in table scripts will always appear in a separate window. \!n",
     << Markup),
     
     Panel Box ("Which table scripts would you like to run?",
      V List Box(
       scriptsTR = Check Box(allScripts, << Set All(1)),
      ),
      H List Box(
       Button Box("Check All", scriptsTR << Set All(1)),
       Button Box ("Check None", scriptsTR << Set All(0))
      ),
      Spacer Box(Size(0,10)),
      Text Box("Report View"),
      rType = Radio Box({"Detailed", "Summary"})
     ),
     H List Box(
      Button Box ("Cancel", popup << Close Window()),
      Spacer Box(),
      Button Box ("Run",  reportView = rType << Get();
            scriptsTR = scriptsTR << Get Selected();
            onRun(reportView, scriptsTR);
            popup << Close Window())
     )
    )
   ) 
   );
 
 popup<<SET auto="" stretching=""></SET></GET>

J'espère qu'il est autorisé à utiliser et à modifier le complément fourni dans le lien ci-dessus (il n'était pas verrouillé). Sinon, je supprimerai ce message. Crédits pour les scripts Exécuter toutes les tables pour : nickholmes13.

 

Merci.

AutreScriptRe : Est-il possible d'ajouter des zones d'édition de texte à tous les scripts d'un journal à l'aide de JSL

Une option serait de modifier l'instruction else à l'intérieur de la boucle for dans la fonction onRun. Voyez comment l'instruction else a été construite/modifiée :

 

    If(i == 1,
     window = New Window(dtTitle || " Reports",
      <<JOURNAL></JOURNAL>

Re : Est-il possible d'ajouter des zones d'édition de texte à tous les scripts d'un journal à l'aide de JSL

Merci jthi, c'est ce que je cherchais !