[GastForen Programmierung/Entwicklung AppleScript Serien-Dateinamenänderung (mit Automator?) "nur die ersten 7 Schreibstellen"

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

Serien-Dateinamenänderung (mit Automator?) "nur die ersten 7 Schreibstellen"

JWeitzel
Beiträge gesamt: 274

4. Mär 2021, 08:23
Beitrag # 1 von 6
Bewertung:
(3027 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Forenmitglieder,

regelmäßig muss ich größere Mengen von Grafik-Dateien an einen "hotfolder" in unserem Betrieb/Produktionsdatenbank übergeben, wozu die Dateien natürlich höchst exakt benannt sein müssen. Nämlich beginnend mit einem Teil einer eindeutigen EAN-Zahlenreihenfolge.

Der Dateiname beginnt auch exakt mit den gewünschten Zahlen, jedoch danach kommt im Anlieferungszustand "Freitext"für die Menschen.

Frage: Lässt sich mit Mac-Automator oder einfacheren Mitteln mit Apple Script eine "Dateinamen-Manipulationsroutine" erstellen, die einfach nur die ersten 7 Schreibtellen des Dateinamens übrig lässt, und alles was danach folgt tilgt?
Beispiel:
"835567_Schraubenfassung, edelstahl.jpg" => "835567_.jpg"

Vielleicht diese Lösung auch als hotfolder?

Danke für konstruktive Hilfe!

(Da gab es mal "a better Finder rename" oder ähnlich)

Johannes
X

Serien-Dateinamenänderung (mit Automator?) "nur die ersten 7 Schreibstellen"

Hans Haesler
  
Beiträge gesamt: 5798

4. Mär 2021, 08:53
Beitrag # 2 von 6
Beitrag ID: #579001
Bewertung:
(3016 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Johannes,

diese Aufgabe kann mit einem Droplet gelöst werden.

Aber ich bin im Urlaub in den Bergen, kann mich deshalb nicht sofort dahintersetzen. Doch vielleicht wird ein versierter Mitleser einspringen.

Gruss, Hans


als Antwort auf: [#579000]

Serien-Dateinamenänderung (mit Automator?) "nur die ersten 7 Schreibstellen"

wowi62
Beiträge gesamt: 108

4. Mär 2021, 13:57
Beitrag # 3 von 6
Beitrag ID: #579002
Bewertung:
(2961 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Johannes,

mit „A better finder rename 9“ funktioniert es bei mir problemlos. Auch als Droplet.

Category > Truncation
Action > Truncate

Truncate to: 7 characters

Gruß
Wolfgang

https://my.hidrive.com/lnk/WTilldja


als Antwort auf: [#579000]

Serien-Dateinamenänderung (mit Automator?) "nur die ersten 7 Schreibstellen"

Thomas Richard
Beiträge gesamt: 18683

4. Mär 2021, 19:57
Beitrag # 4 von 6
Beitrag ID: #579004
Bewertung:
(2888 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hier ist für das meiste der Namemangler im Einsatz. Der beherrscht auch die Erstellung eigenständiger Droplets und Kontextmenüeinträge.


MfG

Thomas


Und wenn dir geholfen wurde, hilf uns, dies auch weiterhin zu können.
http://www.hilfdirselbst.ch/info/


als Antwort auf: [#579002]

Serien-Dateinamenänderung (mit Automator?) "nur die ersten 7 Schreibstellen"

TMA
Beiträge gesamt: 370

5. Mär 2021, 08:03
Beitrag # 5 von 6
Beitrag ID: #579006
Bewertung:
(2808 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Ich habe mal eben schnell was gebaut, das kannst du dann als Application speichern.
Es ist ein Droplet wo du Dateien oder Ordner draufziehen kannst.

Fehler werden bisher nicht abgefangen, ich gehe davon aus das die Dateinamen immer 7 Zeichen + Suffix enthalten. Ansonsten kannst du das Script ja anpassen.

Code
------------------------------------------------------------------------------------------------------------------------------------- 
on Initialize()
set my text item delimiters to ""
end Initialize

on Finalize()
with timeout of 14400 seconds -- 4 Stunden
activate
display alert "Fertig" message "Objekt(e) wurde(n) verarbeitet."
end timeout
end Finalize

on ProcessAFileOrFolder(theFile)
if (theFile as text) ends with ":" then
ScanAFolder(theFile)
else
ProcessAFile(theFile)
end if
end ProcessAFileOrFolder

on ScanAFolder(theFolder)
set fileNames to list folder theFolder without invisibles
repeat with aFile in fileNames
set theFile to (theFolder as text) & contents of aFile
ProcessAFileOrFolder(alias theFile)
end repeat
end ScanAFolder

on open of filesList
my Initialize()
repeat with aFile in filesList
ProcessAFileOrFolder(contents of aFile)
end repeat
my Finalize()
end open

on run
activate
display alert "ACHTUNG!" message "Läuft nur als Droplet. Bitte Objekt(e) auf das Script ziehen." as warning
end run
-------------------------------------------------------------------------------------------------------------------------------------
on ProcessAFile(aFile)
tell application "Finder" to set fileName to (name of aFile) as string
set fileNameNew to (characters 1 thru 7 of fileName) & (characters -1 thru -4 of fileName) as string
tell application "Finder" to set name of aFile to fileNameNew
end ProcessAFile
-------------------------------------------------------------------------------------------------------------------------------------


Gruß
TMA


als Antwort auf: [#579004]

Serien-Dateinamenänderung (mit Automator?) "nur die ersten 7 Schreibstellen"

JWeitzel
Beiträge gesamt: 274

6. Mär 2021, 17:48
Beitrag # 6 von 6
Beitrag ID: #579015
Bewertung:
(2625 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo an alle!

da will ich mich allem voran sehr herzlich bei euch bedanken für die Tipps und das konkrete Script! Das hilft und hat schon ein riesen Stück weiter geholfen!
Was mir auffällt ist, dass offenbar noch an vielen Stellen solche Tools im grafischen/IT-Alltag gebraucht werden. Sonst wäre ja nicht so schnell so viele konkrete Hilfen gekommen.

Bei uns könnte man sowas auch in der Tat an mehreren Stellen einsetzen. Es müssen bspw. immer die gleichen Produktabbildungen massenhaft angeliefert werden, aber die Dienstleister haben untereinander eine voneinander abweichende Dateinamen-Syntax, mal mit, mal ohne Trennstriche, mit speziellen Zählern usw.

Echt cool. Vielen Dank!
Wenn ich relevante neue Einsichten zum Thema habe, melde ich mich gerne.

Johannes
Seit Jahrzehnten Grafiker und Bildeinkäufer in einem Verlag in Freiburg/Dtl.


als Antwort auf: [#579000]
X

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
05.03.2021 - 30.04.2021

Digicomp Academy AG, Zürich oder virtuell
Freitag, 05. März 2021, 13.00 Uhr - Freitag, 30. Apr. 2021, 17.00 Uhr

Lehrgang

Im berufsbegleitenden Web Publisher Lehrgang vertiefen Sie Ihr Wissen rund um das Thema Screendesign und die Umsetzung von Websites. Wir befähigen Sie dazu selbständig und professionell Ihren Webauftritt zu planen und in die Realität umzusetzen.

Preis: CHF 3'250.–
Dauer: 8.5 Tage - 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/9PWEB