tell application "iTunes"
set my_search_results to (search library playlist 1 for "Dilbert Animated Cartoons")
repeat with a_track in my_search_results
set trackName to name of a_track
set trackDuree to duration of a_track
set trackEnd to finish of a_track
if (trackDuree = trackEnd) then
if (trackDuree > 30) then
set NewTrackEnd to trackDuree - 30
set myString to ("Duree originale " & trackDuree as string) & " Durée Finale " & NewTrackEnd as string
#display dialog trackName & " " & myString giving up after 1
set finish of a_track to NewTrackEnd
#display dialog trackName & " " & myString
[^] # Re: chezmoiçamarche
Posté par dickdock . En réponse au message ffmpeg incompréhensible... et pourtant RTFM ;-). Évalué à 2.
tell application "iTunes"
set my_search_results to (search library playlist 1 for "Dilbert Animated Cartoons")
repeat with a_track in my_search_results
set trackName to name of a_track
set trackDuree to duration of a_track
set trackEnd to finish of a_track
if (trackDuree = trackEnd) then
if (trackDuree > 30) then
set NewTrackEnd to trackDuree - 30
set myString to ("Duree originale " & trackDuree as string) & " Durée Finale " & NewTrackEnd as string
#display dialog trackName & " " & myString giving up after 1
set finish of a_track to NewTrackEnd
#display dialog trackName & " " & myString
end if
end if
end repeat
end tell