Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Script fuer TextEdit

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> AppleScript X
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Harlekin
•->
•->


Anmeldedatum: 18.03.2002
Beiträge: 9

BeitragVerfasst am: 06.12.2003 - 01:49    Titel: Script fuer TextEdit Antworten mit Zitat

Hallo,

das folgende Script funktioniert leider nicht:



tell application "TextEdit"
activate
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"ä", «class SRwi»:"ae"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"Ä", «class SRwi»:"Ae"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"ö", «class SRwi»:"oe"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"Ö", «class SRwi»:"Oe"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"ü", «class SRwi»:"ue"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"Ü", «class SRwi»:"Ue"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"ß", «class SRwi»:"ss"
end tell


Es kommt nur eine Fehlermeldung.
Weiss jemand Rat ?

Gruss und danke
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Armin Egginger
•-->
•-->


Anmeldedatum: 04.05.2002
Beiträge: 96
Wohnort: Germering (b. München)

BeitragVerfasst am: 07.12.2003 - 00:56    Titel: Re: Script fuer TextEdit Antworten mit Zitat

Hallo Harlekin,

leider ist mir dein Wunsch nicht ganz klar. Das angegebene Script liefert eine Fehlermeldung, da die events mit "TXEDREPL" nicht passen. Das muß mit dem richtigen Befehl angesprochen werden. Sag uns doch, was Du von dem Script erwartest und welche Bedingungen zugrunde liegen, dann kann ich Dir vielleicht helfen.



Harlekin hat Folgendes geschrieben:
tell application "TextEdit"
activate
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"ä", «class SRwi»:"ae"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"Ä", «class SRwi»:"Ae"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"ö", «class SRwi»:"oe"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"Ö", «class SRwi»:"Oe"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"ü", «class SRwi»:"ue"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"Ü", «class SRwi»:"Ue"
«event TXEDREPL» window 1 with «class SRgl» given «class SRst»:"ß", «class SRwi»:"ss"
end tell


Die events sind nicht eindeutig, da in AppleEvents. Im ScriptEditor benötige ich jedoch die Bezeichnungen aus dem AppleScript Dictionary. Gib doch deine Wünsche preis. Wieviel Dokumente, welcher Text ....
Ich denke mal das Du die Umlaute austauschen möchtest, bin mir jedoch nicht sicher.

happy filemaking

Armin
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Yahoo Messenger
Snow
Administrator
Administrator


Anmeldedatum: 21.11.2000
Beiträge: 1955
Wohnort: Deiningen

BeitragVerfasst am: 07.12.2003 - 09:46    Titel: Antworten mit Zitat

Das Skript ist nicht original für TextEdit, sondern für
Tex-Edit Plus.

Adressiert man es an Tex-Edit Plus, wird's auch richtig kompiliert:

tell application "Tex-Edit Plus"
   
activate
   
replace window 1 looking for "ä" replacing with "ae" with global replacing
   
replace window 1 looking for "Ä" replacing with "Ae" with global replacing
   
replace window 1 looking for "ö" replacing with "oe" with global replacing
   
replace window 1 looking for "Ö" replacing with "Oe" with global replacing
   
replace window 1 looking for "ü" replacing with "ue" with global replacing
   
replace window 1 looking for "Ü" replacing with "Ue" with global replacing
   
replace window 1 looking for "ß" replacing with "ss" with global replacing
end tell

_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen AIM-Name
Harlekin
•->
•->


Anmeldedatum: 18.03.2002
Beiträge: 9

BeitragVerfasst am: 17.12.2003 - 15:24    Titel: Antworten mit Zitat

@ armin

Danke, das Script soll in einem geoeffneten TextEdit Dokument die Umlaute ersetzen, alle auf einmal, mehr nicht.



@ Snow

Auch Dank fuer die Info, aber vielleicht weiss ja jemand doch noch, wie das auch fuer TextEdit geht?

Gruss Harlekin
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Harlekin
•->
•->


Anmeldedatum: 18.03.2002
Beiträge: 9

BeitragVerfasst am: 17.12.2003 - 15:30    Titel: Antworten mit Zitat

Nachtrag:

Die Kroenung waere natuerlich ein solches Script fuer Adobe InDesign.

Gruss Harlekin
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Snow
Administrator
Administrator


Anmeldedatum: 21.11.2000
Beiträge: 1955
Wohnort: Deiningen

BeitragVerfasst am: 17.12.2003 - 18:56    Titel: Antworten mit Zitat

Hallo Harlekin,

Indesign habe ich leider nicht, kann also auch nichts darüber sagen, ob es eine Suchen/Ersetzen-Funktion per Skript anbietet.

Es gibt diverse Scripting Additions, die eine solche Funktion zur Verfügung stellen. Sehr gute Möglichkeiten bietet z.B. die Osax "Satimage". Dort gibt es den Befehl "change", der neben der reinen Textsuche auch die Verwendung von regular expressions bietet.

Will man sich nicht von Scripting Additions abhängig machen, bleibt natürlich noch die reine AppleScript-Variante mit den "Text item delimiters".

Beispiel:

set SuchListe to {"ä", "ö", "ü", "Ä", "Ö", "Ü", "ß"}
set ErsatzListe to {"ae", "oe", "ue", "Ae", "Oe", "Ue", "ss"}

-- Wie der Text in die folgende Variable kommt, bleibt jetzt mal
-- jedem selbst überlassen. Weil's gerade einfach ist, schreibe
-- ich ihn direkt ins Skript
set OriginalText to "Dieser Text enthält Umlaute wie ä, ö, ü, welche
durch Doppellaute ersetzt werden sollen.
"

-- Für jeden Umlaut muss ein kompletter
-- Schleifendurchlauf erfolgen.

repeat with i from 1 to (count of SuchListe)
set SuchText to item i of SuchListe
set Ersatztext to item i of ErsatzListe
set OriginalText to SuchenUndErsetzen(OriginalText, SuchText, Ersatztext)
end repeat

return OriginalText

-- Suchen und Ersetzen mit AppleScript
on SuchenUndErsetzen(derText, SuchText, Ersatztext)
set AppleScript's text item delimiters to the SuchText
set the itemListe to every text item of derText
set AppleScript's text item delimiters to the Ersatztext
set derText to the itemListe as string
set AppleScript's text item delimiters to ""
return derText
end SuchenUndErsetzen

_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen AIM-Name
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> AppleScript X Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter