Dieses Eye-TV Skript schaut nach, ob die in EyeTV ausgewählten Aufnahmen in ~/iTunes/iTunes Music/TV Shows bereits exportiert wurden (iPod m4v). Trifft dies zu, wird eine Zusammenfassung der Aufnahme als Textdatei in diesem Ordner erzeugt, die Exportierte Datei entsprechend
umbenannt und anschließend wird die Aufnahme aus Eye-TV GELÖSCHT. Ok den Part habe ich sicherheitshalber mal auskommentiert.So könnte man aber stumpf in EyeTV alle Aufnahmen auswählen, das Skript laufen lassen und das Skript "bereinigt" automatisch die Aufnahmeliste =)
tell application "EyeTV"
set these_r to selection of programs window
end tell
set thepath to do shell script "echo $HOME" & "/Music/iTunes/iTunes Music/TV Shows/"
repeat with this_r in these_r
tell application "EyeTV"
try
set this_year to (last word of (episode of this_r as text)) as integer
set theepisode to episode of this_r
on error
set this_year to 0
end try
set is_busy to busy of this_r
set the_contents to description of this_r as text
set the_name to (title of this_r) as text
set the_info to episode of this_r
end tell
try
set theepisode to replace_chars(theepisode, ":", "_")
set theepisode to replace_chars(theepisode, "/", "_")
end try
set the_name_ to replace_chars(the_name, ":", "_")
if is_busy = false then
if this_year is not 0 then
set the clipboard to the_name & " (" & this_year & ")" & return & return & the_info & return & return & the_contents as text
try
do shell script "mv " & quoted form of (thepath & the_name_ & "/" & theepisode & ".m4v") & " " & quoted form of thepath & quoted form of ("(" & this_year & ") ") & quoted form of the_name_ & ".m4v"
do shell script "pbpaste | cat>" & quoted form of thepath & quoted form of ("(" & this_year & ") ") & quoted form of the_name_ & ".txt"
(** tell application "EyeTV"
delete this_r
end tell**)
on error msg
--display dialog the_name_ & " gibt es anscheinend nicht."
end try
else
set the clipboard to the_name & return & return & the_info & return & return & the_contents as text
try
do shell script "mv " & quoted form of (thepath & the_name_ & "/" & theepisode & ".m4v") & " " & quoted form of thepath & quoted form of ("(" & this_year & ") ") & quoted form of the_name_ & ".m4v"
do shell script "pbpaste | cat>" & quoted form of thepath & quoted form of the_name_ & ".txt"
(** tell application "EyeTV"
delete this_r
end tell
**)
on error
--display dialog the_name_ & " gibt es anscheinend nicht."
end try
end if
end if
end repeat
on replace_chars(this_text, search_string, replacement_string)
if this_text contains the search_string then
set AppleScript's text item delimiters to the search_string
set the item_list to every text item of this_text
set AppleScript's text item delimiters to the replacement_string
set this_text to the item_list as string
set AppleScript's text item delimiters to ""
end if
return this_text
end replace_chars
Update
Die ist ein Beispiel, wie man die Original-EyTV-Aufnahme kopieren könnte...
tell application "EyeTV"
set these_r to selection of programs window
repeat with this_r in these_r
set this_location to location of this_r as text
set AppleScript's text item delimiters to ":"
set this_location to text items 1 through -2 of this_location as text
set AppleScript's
