Ciao comunità JMP,
Mi chiedevo se fosse possibile creare uno script per la generazione di un diario contenente tabelle e/o figure selezionate includendo una casella di modifica del testo per ogni tabella/figura.
Mi sono imbattuto in un componente aggiuntivo che sta facendo parte di ciò che vorrei fare: https://community.jmp.com/t5/JMP-Add-Ins/Run-All-Table-Scripts/ta-p/42863
Sono interessato solo all'opzione Rapporto affiancato, ma vorrei l'aggiunta di una casella di modifica del testo per tutti gli script selezionati perché vorrei aggiungere commenti ad essi. Sono stato in grado di aggiungere una casella di modifica del testo all'inizio e alla fine del diario, ma non riesco a capire (se e) come aggiungerli per ogni script. La quantità di script selezionati cambierà in base alla quantità di cifre necessarie per il diario.
Per le mie esigenze, ho preso parti del componente aggiuntivo Run All Table Scripts che potevo usare e ho provato a cambiarlo. Finora senza successo. Qualcuno ha suggerimenti su come aggiungere caselle di modifica del testo a tutti gli script in un diario?
//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>Spero che sia consentito utilizzare e modificare il componente aggiuntivo fornito nel collegamento sopra (non era bloccato). In caso contrario, eliminerò questo post. Riconoscimenti per gli script Run All Table per: nickholmes13.
Grazie.
Un'opzione sarebbe quella di modificare l'istruzione else all'interno del ciclo for nella funzione onRun. Guarda come è stata creata/modificata l'istruzione else:
If(i == 1,
window = New Window(dtTitle || " Reports",
<<JOURNAL></JOURNAL>Grazie jthi, questo è quello che stavo cercando!