ladoma
Neues Mitglied
Thread Starter
- Dabei seit
- 16.11.2006
- Beiträge
- 14
- Reaktionspunkte
- 5
Hallo,
bei der WB500 werden mp4 avc clips erstellt. Beim import in iMovie gibt es einen Fehler. Um diesen zu vermeiden lösche ich 2-3 Sekunden am Anfang des Clips per Quicktime und exportiere dann per "Durrchreichen" wieder.
Das ganze habe ich mir als AppleScript zusammengebaut und wollte das gerne mit anderen teilen.
Kurz und knapp, hier der Code:
Gruß, Ladoma
bei der WB500 werden mp4 avc clips erstellt. Beim import in iMovie gibt es einen Fehler. Um diesen zu vermeiden lösche ich 2-3 Sekunden am Anfang des Clips per Quicktime und exportiere dann per "Durrchreichen" wieder.
Das ganze habe ich mir als AppleScript zusammengebaut und wollte das gerne mit anderen teilen.
Kurz und knapp, hier der Code:
Code:
with timeout of 86400 seconds
display dialog "Before beginning batch processing, make sure QuickTime Player is set to the desired export settings, and all videos to be processed are in a folder named ‘Input’ on the desktop." with icon note
tell application "Finder"
set the startup_disk to the name of the startup disk
end tell
set user to do shell script "whoami"
set input_folder_name to "Input"
set input_folder to startup_disk & ":Users:" & user & ":Desktop:" & input_folder_name & ":"
set user_desktop to startup_disk & ":Users:" & user & ":Desktop:"
set output_folder to startup_disk & ":Users:" & user & ":Desktop:Output:"
set file_extension to "_export.mp4"
try
tell application "Finder"
make new folder at user_desktop with properties {name:"Output"}
end tell
end try
try
set the_folder_list to list folder input_folder without invisibles
repeat with x from 1 to count of the_folder_list
set the_file to input_folder & item x of the_folder_list
set output_file to output_folder & item x of the_folder_list & file_extension
tell application "QuickTime Player"
activate
open the_file
tell application "QuickTime Player"
activate
set documentList to id of every document -- jedes offene Filmdokument wird in eine Liste gelegt
repeat with i in documentList
tell document 1
set laenge to get duration -- Filmlänge in 600stel Sekunden
select at (600 * 3) to (laenge - 600 * 0) -- schneidet vorn und hinten 5sec ab
trim --schnipp
end tell
-- sichern/exportieren überlasse ich dir
end repeat
end tell
export front document to output_file as MPEG4 using most recent settings with replacing
close front document
end tell
end repeat
on error
display dialog "This script requires a folder named ‘" & input_folder_name & "‘ located on the desktop." with icon stop
end try
beep
end timeout
Gruß, Ladoma