Hallo JMP-Gemeinde,
Ich habe mich gefragt, ob es möglich wäre, die Generierung eines Journals mit ausgewählten Tabellen und/oder Abbildungen einschließlich eines Textbearbeitungsfelds für jede Tabelle/Abbildung zu skripten.
Ich bin auf ein Add-In gestoßen, das einen Teil dessen tut, was ich gerne tun würde: https://community.jmp.com/t5/JMP-Add-Ins/Run-All-Table-Scripts/ta-p/42863
Ich interessiere mich nur für die Option Gekachelter Bericht, möchte aber ein Textbearbeitungsfeld für alle ausgewählten Skripts hinzufügen, weil ich ihnen Kommentare hinzufügen möchte. Ich konnte am Anfang und am Ende des Journals ein Textbearbeitungsfeld hinzufügen, aber ich kann anscheinend nicht herausfinden (ob und), wie ich sie für jedes Skript hinzufügen kann. Die Anzahl der ausgewählten Skripte ändert sich basierend auf der Anzahl der Zahlen, die für das Journal benötigt werden.
Für meine Bedürfnisse habe ich Teile des Run All Table Scripts Add-Ins genommen, die ich verwenden konnte, und versucht, es zu ändern. Bisher ohne Erfolg. Hat jemand Vorschläge, wie man Textbearbeitungsfelder zu allen Skripten in einem Journal hinzufügt?
//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>Ich hoffe, es ist erlaubt, das im obigen Link bereitgestellte Add-In zu verwenden und zu ändern (es wurde nicht gesperrt). Wenn nicht, werde ich diesen Beitrag löschen. Danksagungen für die Run All Table-Skripts für: nickholmes13.
Danke.
Eine Möglichkeit wäre, die else-Anweisung innerhalb der for-Schleife in der onRun-Funktion zu bearbeiten. Sehen Sie, wie die else-Anweisung erstellt/geändert wurde:
If(i == 1,
window = New Window(dtTitle || " Reports",
<<JOURNAL></JOURNAL>Danke Jthi, das habe ich gesucht!