こんにちはJMPコミュニティ、
選択した表や図を含むジャーナルの生成を、各表/図のテキストエディットボックスを含めてスクリプト化できるかどうか疑問に思いました。
私がやりたいことの一部を実行しているアドインに出くわしました： https://community.jmp.com/t5/JMP-Add-Ins/Run-All-Table-Scripts/ta-p/42863
[タイルレポート]オプションにのみ関心がありますが、コメントを追加したいので、選択したすべてのスクリプトに[テキスト編集]ボックスを追加したいと思います。 ジャーナルの最初と最後にテキストエディットボックスを追加することはできましたが、すべてのスクリプトにテキスト編集ボックスを追加する方法がわかりません。 選択されるスクリプトの量は、ジャーナルに必要な数字の量に基づいて変化します。
必要に応じて、使用できるRun All Table Scriptsアドインの一部を使用して、変更を試みました。 これまでのところ成功していません。 ジャーナル内のすべてのスクリプトにテキストエディットボックスを追加する方法を提案している人はいますか？
//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>上記のリンクで提供されているアドインの使用と変更が許可されていることを願っています（ロックされていませんでした）。 そうでない場合は、この投稿を削除します。 nickholmes13のすべてのテーブルスクリプトを実行するためのクレジット。
ありがとう。
1つのオプションは、onRun関数のforループ内のelseステートメントを編集することです。 elseステートメントがどのように構築/変更されたかを確認してください。
If(i == 1,
window = New Window(dtTitle || " Reports",
<<JOURNAL></JOURNAL>ありがとうjthi、これは私が探していたものです！
