| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
till
•--->
Anmeldedatum: 21.04.2005
Beiträge: 187
Wohnort: q-town (R-P)
|
 Verfasst am: 17.04.2006 - 19:50 Titel: itunes-duplicate löschen |
 |
|
Jeder der itunes benutzt hat lieder z.t doppelt.
Ich leider jede menge weil meine unfähige schwester immer meint titel zu importieren obwohl sie längst in der bibliothek sind.
und dann gibt es da in den einstellung auch noch den schönen "Titel beim hinzufügen in itunes -musik ordner kopieren".
-- das script löscht also duplicate oder ach 2 titel wenn es ihn 3 mal gibt.
-- wenn die titel andere formate/ oder spieldauer/ oder interpreten haben dann verschont er sie vom löschen.
-- sobald man eine playlist ausgewählt hat und den warnhinweis bestätigt legt das script los.
-- da bei jedem titel über die suchfkt überprüft wird ob es ihn mehrfach gibt nimmt das ganze , je nach plylist, denmentsprechend zeit in anspruch.(bei 16gb/knapp 3500 titel dauert es etwa 5 min - es wurden 260 titel gelöscht)
-- testet es am besten in einer kleinen plylist
-- voraussetztung itunes6.x
| Zitat: |
-- itunes duplicate löscher v. 0.1
-- till s. [icq: 298714339]
-- werbefläche: www.fischer-bayern.de
-- es wird keine haftung übernommen
tell application "iTunes"
-- auswahl
set liste to name of every playlist
set x to ((choose from list liste with prompt "Wählen sie eine playlist aus, " & return & "in der doppelte lieder " & return & "gelöscht werden sollen:") as text)
set lieder to every track of playlist x
display dialog "Duplicate wirklich löschen?" with icon caution
-- Vars
set zahler to 0
set duplis to "-----Titel-----"
set loschliste to {}
-- einzelne titel in plylist
repeat with lied in lieder
-- wenn titel zuvor aus lieder gelöscht
if lied exists then
set titel to name of lied
-- suche ob titel mehrfach
set erg to search playlist x for titel
set y to count every item of erg
-- wenn mehrfach dann
if y > 1 then
set erglieder to every item of erg
set i to 1
-- betrachte liste des titels
repeat with erglied in erglieder
-- vergleichsfestlegung item 1
if i = 1 then
set saver to erglied
end if
-- löschen
if i is not 1 then
if duration of erglied is equal to duration of saver then
if artist of erglied is equal to artist of saver then
if name of erglied is equal to name of saver then
--display dialog "delete? " & name of erglied
delete erglied
-- bericht vars
set zahler to zahler + 1
set duplis to duplis & return & titel & tab & " - " & artist of lied
end if
end if
end if
end if
set i to 2
end repeat
end if
end if
end repeat
-- bericht
display alert "Bericht" message "gelöschte Duplicate : " & zahler & return & return & duplis
end tell
|
snow ich hoffe ich darf für f-b werben *g
bitte um meinungen
gn8 till
_________________
ein berühmter Philosoph (<-Ich) sagte einmal:
" es ist nicht das Problem was uns Kopfzerbrechen macht,
es ist der Kopf selbst, der sich erdrückt" |
|
| Nach oben |
|
 |
|
|
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 |
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
