Salve comunità JMP,
Mi chiedevo se fosse possibile creare uno script per la generazione di un diario contenente tabelle e/o figure selezionate, inclusa 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 aggiungere una casella di modifica del testo per tutti gli script selezionati perché vorrei aggiungere commenti. 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 figure necessarie per la rivista.
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 Esegui tutte le tabelle per: nickholmes13.
Grazie.
Grazie jthi, questo è quello che stavo cercando!
Un'opzione sarebbe quella di modificare l'istruzione else all'interno del ciclo for nella funzione onRun. Guarda come l'istruzione else è stata costruita/modificata:
If(i == 1,
window = New Window(dtTitle || " Reports",
<<JOURNAL></JOURNAL>