Script mit Dialog zur Eingabe einer Variablen

Das Download-Dokument ist eine Weiterentwicklung des Download-Dokumentes unter http://experts.ragtime.de/experts/node/4256, vor allem ergänzt mit einem AppleScript zum Eingeben einer Variablen mittels Dialog.

Michael Vaerst hat angeregt, das Script im Download-Dokument des Beitrags http://experts.ragtime.de/experts/node/4256 zu vereinfachen, indem die drei Aktionsschritte zu einem einzigen zusammengefasst werden. Im vorliegenden Script ist ausserdem alles Überflüssige weggelassen. Das Script besteht nur noch aus der einzigen Zeile

  set active plane of table "R 1" of document 1 to value of cell "B1" of table "R 2" of document 1

Dazu ein paar Kommentare:

• Mit dem Vorschlag von Michael Vaert wird der Umweg über die Variable „n“ hinfällig.
• Die Funktion „try“ war aus dem Beitrag von Norbert Lindenthal in der Diskussion http://experts.ragtime.de/experts/node/4255 übernommen, ist hier aber nicht erforderlich.
• Die Aktivierung der RagTime-App ist nur beim Test aus dem SkriptEditor erforderlich, nicht aber wenn das Script innerhalb RagTime aufgerufen wird,

Das Ausgangsdokument wurde mit der Möglichkeit ergänzt, eine weitere Lage samt Namen anzufügen. Ob diese Ergänzung sinnvoll ist oder nicht bleibe dahingestellt. Hier geht es nur darum, ein AppleScript-Beispiel zu zeigen, in welchem ein Dialog zur Eingabe einer Variablen verwendet wird. Ein solches fehlt bisher. Das Dokument wurde mit dem Knopf „K Neue Lage“ ergänzt, mit welchem ds Script „Neue Lage“ aufgerufen wird. Zudem wird in der Zelle B2 des Rechenblatts „R 2“ die Anzahl vorhandener Lagen mit folgender Funktion ermittelt:

  VSuchlauf(A:A; NICHT IstLeer(LfdZelle))

Hier das Script „Neue Lage“:

set Zeile to (value of cell "B2" of table "R 2" of document 1) + 1
try
	set Lagenname to text returned of (display dialog "Name der neuen Lage" default answer "" default button "OK" cancel button "Abbrechen")
	set value of cell ("A" & Zeile) of table "R 2" of document 1 to Lagenname
	make new plane at end of table "R 1" of document 1
end try

Ein paar Kommentare zum Script:

• Auch hier könnten die Aktionsanweisungen zusammengefasst werden. Der Umweg mit den Variablen „Zelle“ und „Lagenname“ wurde gewählt, um das Script leichter nachvollziehbar zu machen.
• Die Funktion „try“ ist hier erforderlich, damit bei Abbruch des Dialogs keine Fehlermeldung angezeigt und die Anweisung „make new plane“ übersprungen wird.
• Die neue Lage wird als letzte Lage dazugefügt.