[GastForen Programmierung/Entwicklung AppleScript Suffix entfernen unter OS-X

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Themen
Beiträge
Moderatoren
Letzter Beitrag

Suffix entfernen unter OS-X

Anonym
Beiträge gesamt: 22827

15. Jul 2005, 14:02
Beitrag # 1 von 3
Bewertung:
(898 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Hans,

habe nach erfolglosen Versuchen mich entschlossen, den Meister zu fragen:

Ein Droplet welches alle Suffixen entfernt (unter OS_X)

Danke im Vorraus
willem
X

Suffix entfernen unter OS-X

Hans Haesler
  
Beiträge gesamt: 5805

15. Jul 2005, 15:25
Beitrag # 2 von 3
Beitrag ID: #419868
Bewertung:
(897 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Willem,

ja, es nicht so einfach. Die folgende Lösung nimmt an, dass die Suffixe immer drei Buchstaben
haben. Die Zeile 'if fullPath ends with ":" then' prüft, ob es ein Ordner ist. Wenn nicht, wird
weitergefahren und geprüft, ob der viertletzte Buchstabe des Pfades ein Punkt ist. Wenn ja,
wird der neue Namen ermittelt, nämlich die Zeichen 1 bis -5 des letzten Elementes des Pfades.
Schliesslich wird der Finder beauftragt, den Namen zu ändern.

Der 'try'-Wickel ist notwendig, um eine Fehlermeldung zu unterdücken, falls eine gleichnamige
Datei schon existiert. In einem solchen Fall wird der Zähler 'ctr' inkrementiert und am Schluss
wird, falls der Wert von 'ctr' grösser als Null ist, ein Dialog gezeigt.

Es findet keine Prüfung statt, ob das Suffix wirklich eines ist. Aber sehr wahrscheinlich ist
dies für Deine Zwecke nicht notwendig. Sonst könnte man noch einen Test einbauen.
---
on open fileList
   set ctr to 0
   set AppleScript's text item delimiters to {":"}
   repeat with aFile in fileList
      set fullPath to aFile as string
      if fullPath ends with ":" then
      else
         if character -4 of fullPath is "." then
            set newName to text 1 thru -5 of (text item -1 of fullPath)
            try
               tell application "Finder" to set name of file fullPath to newName
            on error
               set ctr to ctr + 1
            end try
         end if
      end if
   end repeat
   set AppleScript's text item delimiters to {""}
   if ctr = 1 then
      display dialog "Eine Datei konnte nicht umbenannt werden." buttons ¬
         "OK" default button 1 with icon 2
   else if ctr > 1 then
      display dialog "" & ctr & " Dateien konnten nicht umbenannt werden." buttons ¬
         "OK" default button 1 with icon 2
   end if
end open

---
Das Droplet sende ich Dir zu.

Gruss, Hans


als Antwort auf: [#419867]

Suffix entfernen unter OS-X

Anonym
Beiträge gesamt: 22827

16. Jul 2005, 12:44
Beitrag # 3 von 3
Beitrag ID: #419869
Bewertung:
(897 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Hans,

ja es sind immer echte Suffixe (Scandaten)
das Script funktioniert so einwandfrei!!

Gruesse und Danke
willem


als Antwort auf: [#419867]

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
05.02.2021 - 05.11.2021

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Freitag, 05. Feb. 2021, 13.00 Uhr - Freitag, 05. Nov. 2021, 17.00 Uhr

Lehrgang

Bilden Sie sich zum zertifizierten Publishing-Multimedia-Profi aus. Neben Fotografie und Video befassen Sie sich mit der Medienproduktion, digitalen Publikationen und dem Webdesign für Desktop- und mobile Endgeräte.

Preis: CHF 10'500.-
Dauer: 30 Tage (ca. 210 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PM

Veranstaltungen
09.09.2021 - 17.12.2021

Digicomp Academy, Zürich
Donnerstag, 09. Sept. 2021, 13.00 Uhr - Freitag, 17. Dez. 2021, 19.00 Uhr

Lehrgang

Steigen Sie in die Welt des Publishings ein und erlangen Sie die Zertifizierung von Publishing NETWORK. Lernen Sie in diesem Lehrgang Druckmedien professionell zu erarbeiten, druckfertige PDFs zu erstellen und CI/CD-Vorgaben umzusetzen.

Preis: 6'300.– zzgl. 7.7% MWST
Dauer: 18 Tage(ca. 126 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt.

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberater AT digicomp DOT ch