START > APPLESCRIPT > Gebrauchsfertige Scripts > iPhoto - Fotoliste mit Kommentaren

iPhoto - Fotoliste mit Kommentaren

Dieses Applescript erstellt eine Liste der Bild-Dateinamen inklusive ihrer Kommentare von einem auszuwählenden Album und schreibt diese in eine Textdatei namens "iPhotoList.txt" auf dem Desktop. Welche Informationen in der Textdatei landen, lässt sich leicht anpassen. Leider ist das Script nicht besonders performant.

(* iPhoto_CommentList v0.1 - hohabadu.de *)
-- ::::::::::::::::::::::::::::::::::::::::  hohabadu.de  ::::::::::::::::::::::::::::::::::::::::

set TextFileContent to ""
tell application "iPhoto"
   set Albennamen to name of every album
   set Albumname to item 1 of (choose from list Albennamen with prompt "Liste von welchem Album erstellen?" without multiple selections allowed) as text
   set dasAlbum to (every album whose name is Albumname) as reference
   set PhotoList to every photo of dasAlbum
   repeat with thePhoto in PhotoList
      set TextFileContent to TextFileContent & ((image filename of thePhoto as text) & " | " & (comment of thePhoto as text) & return)
   end repeat
   display dialog TextFileContent -- nur zur Veranschaulichung
   my Write2File(TextFileContent)
end tell

-- write a string to file "iPhotoList.txt" at desktop
on Write2File(txt)
   set destination to (open for access file ((path to "desk" as string) & "iPhotoList.txt") with write permission)
   try
      write txt to destination starting at eof
      close access destination
   on error
      close access destination
   end try
end Write2File

 Im Scripteditor öffnen

Kommentar schreiben



Powered By CMSimple Design By NMuD Top