Mixed Tape relabel Script

[Skeeve]

Mich stört an den Mixed Tapes immer, daß unter "Album" nie "Mixed Tape ##" steht und daß das Compilation-Häkchen nicht gesetzt ist.

Jetzt habe ich Abhilfe mittels eines Scripts geschaffen.

Es verschiebt den Eintrag unter "Album" und gegebenenfalls "Werk" in den Kommentar und setzt als Album "Mixed Tape ##".

Einfach das unten stehende Script in den Script Editor kopieren und dann:
Ablage -> Sichern unter
Homedirectory -> Library -> iTunes -> Scripts
Name: "Mixed Tape relabel"
Sichern als: Programm

Als Programm sichern ist m.W. nötig wenn man möchte, daß sich das Script die zuletzt verwendete Mixed Tape Nummer merkt, um beim nächsten Mal die nächsthöhere angeben zu können.

Nun muß man nur noch die ca. 15 Tracks eines Mixed Tape Albums auswählen und das script über iTunes' Scriptmenü starten, die Mixed Tape Nummer angeben und etwas warten.

Zur Sicherheit prüft das script, daß der vorhandene Kommentar den Text "Mixed Tape" enthält! Nur wenn das der Fall ist, wird umbenannt! Ansonsten wird der Track ignoriert.

property last_number : 16
on run
   set now_number to text returned of (display dialog "Mixed Tape Nummer" default answer 1 + last_number)
   set zaehler to 0
   tell application "iTunes"
      repeat with this_track in selection
         if this_track's comment contains "Mixed Tape" then
            set new_comment to this_track's album
            if this_track's grouping is not "" then
               set new_comment to "Album: " & new_comment & return & "Grouping: " & this_track's grouping
               set this_track's grouping to ""
            end if
            set this_track's comment to new_comment
            set this_track's album to "Mixed Tape " & now_number
            set this_track's compilation to true
            set zaehler to zaehler + 1
         end if
      end repeat
   end tell
   if zaehler > 0 then
      if zaehler = 1 then
         set zaehler to "one track"
      else
         set zaehler to zaehler & " tracks"
      end if
      set last_number to now_number
      display dialog "Relabeled " & zaehler with icon note
   else
      display dialog "No track found" with icon warning
   end if
end run