tell document 1 of application "QuarkXPress Passport™ 4.11"
 activate
 repeat with i from 1 to count of sList
  set s to item i of my sList
  set r to item i of my rList
  try
   tell every story
    set (every text where it is s) to r
   end tell
  end try
 end repeat
 display dialog "Fertich." buttons "OK" default button 1 with icon 1 giving up after 10000
end tell

Hiermit wird eine Suchen und Ersetzen-Liste abgearbeitet. (Danke nochmal an Hans)
Wie kann ich hier noch die Option "Ganzes Wort" einbauen, so wie man sie aus dem Quark-eigenen Werkzeug kennt?

Gruss
Christoph

Hallo Christoph,

das Script ist auf Geschwindigkeit ausgerichtet: Dank den beiden 'my' ist der Zugriff auf die Listen
schneller und dank 'every text' wird das Ersetzen praktisch auf einen Schlag vorgenommen.

Damit nur ganze Wörter ausgetauscht werden, könntest Du bei den Begriffen je hinten und vorne einen
Zwischenraum einfügen. Aber damit würden Worte, welche am Anfang eines Absatzes stehen oder von vor-
oder/und nachgestellten Satzzeichen umgeben sind, nicht erfasst.

Deshalb müsste man komplizierte Bedingungen einschieben – und schon klappt es mit 'every' nicht mehr.
Denn dann muss jeder gefundene Fall untersucht werden. Ich werde gelegentlich versuchen, eine
entsprechende Lösung zu finden. Ich melde mich wieder.

Übrigens: was bezweckst Du mit dem 'giving up after 10000'? Soll der Dialog 10000 Sekunden lang sichtbar
bleiben? Das Problem ist, dass wenn die Meldung länger als eine Minute angezeigt bleibt, nach dem Klick
auf "OK" eine Fehlermeldung erscheint. Es ist also besser, in diesem Fall auf das 'giving up' zu verzichten und
einen 'timeout'-Wickel einzubauen:
---
with timeout of 300 seconds
display dialog "Fertich." buttons "OK" default button 1 with icon 1
end timeout
---

Mein ursprüngliches 'giving up after 1' war benutzerfreundlich gedacht. Die Meldung erscheint, verschwindet
aber nach einer Sekunde wieder, ohne dass der Anwender auf den "OK"-Button klicken muss.

Gruss, Hans

Hallo Hans,
nun ich dachte es wäre lediglich ein Schalter für die Funktion "Ganzes Wort".
Ich habe festgestellt, dass es doch sehr gefährlich sein kann, sehr viele
Begriffe zu suchen und ersetzen.
Es gibt Situationen wo sich das Script selber ein Bein stellt. D.h. ein kurzer
String ist bereits am Anfang der Stapelverarbeitung ersetzt worden.
Bei der Weiterführung des Stapels fehlt dann dieser kleine Teil in einem anderen und längeren Suchstring.

Ich habe über 400 Ersetzungen und da wird es dann unübersichtlich.
Die Umsetzung "Ganzes Wort" ist nicht so dringlich.

Zum Dialog:
Das hatte ich mir irgendwo blind wegkopiert und war froh das es funktioniert ohne mir Gedanken zu machen, was dieser Teil überhaupt macht.

Gruss Christoph

Hallo Christoph,

also wenn das Ersetzen-Problem "nur" ein Konflikt von gleichen Wortteilen ist, dann musst Du "nur" die Listen
intelligent aufstellen: Die langen Begriffe zuerst und die kurzen am Schluss.

Ein Beispiel: "Chris" soll durch "Hans" ersetzt werden und "Christoph" durch "Hanspeter". Wenn der erste Lauf
mit "Chris"/"Hans" durchgeführt würde, dann würde "Christoph" verstümmelt. Wenn aber mit "Christoph" begonnnen
wird, dann wird dieser zu "Hanspeter" und der "Chris" kann durch "Hans" ersetzt werden.

Gruss, Hans

Hallo Christoph,

ich habe vergessen, etwas zu erwähnen. Und zuhanden aufmerksamer Forumsteilnehmer hole ich es nach.

Natürlich könnte man die "Wort"-Funktion ganz einfach einschalten, indem man statt 'every text' den Ausdruck
'every word' gebraucht. Klappt sehr gut (abgesehen von der Nichtbeachtung der Gross- und Kleinschreibung ...).
Bedingung ist aber, dass die Suchstrings ausschliesslich ganze Worte sind.  Ein einziger "Fremdkörper" – wie
z.B. ein Bindestrich (oder ein Zwischenraum) – genügt, dass das Wort nicht mehr gefunden wird.

Und weil ich von einem privaten Austausch im Dezember weiss, dass Deine Strings wesentlich komplexer sind,
habe ich diese Möglichkeit gar nicht erst vorgeschlagen.

Ich werde also versuchen, ein aufwendiges Verfahren zu entwickeln, mit welchem ein gezielteres Ersetzen
möglich sein wird. Ich habe zwei Ideen dafür und hoffe, dass es mit einer davon klappen wird.

Gruss, Hans