Hallo, ich habe das gleiche Vorhaben. Ich möchte die Aufnahmen aus EyeTV exportieren, auf der Festplatte in einem bestimmten Ordner speichern und die ursprüngliche Aufnahme löschen. Wenn ich das richtig verstanden habe benötige ich dafür nur das RecordingDone-Skript!? Doch auch ich habe das gleiche Problem. Ich habe die Dateien aus dem verlinkten Beitrag runtergeladen. Aber auch ich habe keine Zeile "export from recording id myid to thepath as .." im RecordingDone Skript. Skript wurde mit dem AppleScript Editor geöffnet.
Code:
on RecordingDone(recordingID)
set myid to recordingID as integer
set logevents to 1 as number
set logpath to (path to home folder) & "Recordings.txt" as string
set eventtolog to (current date) & " *" as text
writelogfile(eventtolog, logevents, logpath)
set eventtolog to (current date) & " --- Script started for recording id " & myid as text
writelogfile(eventtolog, logevents, logpath)
set thepath to (path to home folder) & "Movies:" as string
set eventtolog to (current date) & " --- set destination path to " & thepath as text
writelogfile(eventtolog, logevents, logpath)
set z to 0
tell application "EyeTV.app"
set the_name to «class Titl» of («class cRec» id myid)
set the_date to «class Stim» of («class cRec» id myid) as date
set the_hour to hours of the_date as text
set the_minutes to minutes of the_date as text
set the_seconds to seconds of the_date as text
if length of the_hour = 1 then set the_hour to "0" & the_hour as text
if length of the_minutes = 1 then set the_minutes to "0" & the_minutes as text
if length of the_seconds = 1 then set the_seconds to "0" & the_seconds as text
set Zeit to the_hour & "." & the_minutes & "." & the_seconds as text
set the_date to (the_date + z * days)
set derTag to text -2 thru -1 of ("0" & the_date's day)
set MonatsListe to {January, February, March, ¬
April, May, June, July, August, ¬
September, October, November, December}
repeat with i from 1 to 12
if the_date's month = item i of MonatsListe then
set Monat to text -2 thru -1 of ("0" & i)
exit repeat
end if
end repeat
set z to z + 1
set Jahr to ((year of the_date) as text)
set the_date to derTag & "." & Monat & "." & Jahr & "_" & Zeit
end tell
set thepath to thepath & the_name & "_" & the_date & ".m4v" as string
set eventtolog to (current date) & " --- add file to iTunes " & thepath as text
writelogfile(eventtolog, logevents, logpath)
tell application "EyeTV.app"
«event EyTVExpo» given «class Esrc»:«class cRec» id myid, «class Etgt»:thepath, «class Etyp»:«constant EtypApTV»
end tell
end RecordingDone
on writelogfile(eventtolog, logevents, logpath)
if logevents = 1 then
set RefNum to (open for accessfilelogpath with write permission)
try
writeeventtolog & returntoRefNumstarting at ((get eofRefNum) + 1)
close accessRefNum
on error
close accessRefNum
end try
end if
end writelogfile
Lesezeichen