Click the links below to explore the different sections of our site. If you have any questions about our products or services, don't hesitate to contact us.
Following are a number of links to pages that might interest you as a visitor of this web site.
copyright © 2005-07 by Mark Schonewille & Economy-x-Talk

Economy-x-Talk - Sample Scripts

Convert QuickTime Files

 Ok...
 I'm no scripter myself, so I turn to the experts......

 Can this be done or has anyone created such a script?

 What I'm looking for.
 I would like to be able to drop a file or folder of files onto a
 script.
 The script would then open QuickTime and export the files ( prompting
 me for the export options that I would like to use).
 After exporting it would simply quit Quicktime and itself.

 A variation on this would be specific scripts for specific export
 functions.
 For example:
 quicktime-->tif, targa or sgi sequence
 mp3 --> aiff
 All in a batch style.

 If someone could cobble together such a thing. I can think of a lot of
 people in the video industry that would be very grateful.

 If anyone has anyone has any questions or solutions feel free to email
 me <@mailto:qrichardson@m....>

Solution by Sainatt





on open(the_files)
  my convert_to_aiff(the_files)
end open

on convert_to_aiff(the_files)
   tell application "Finder"

      set laliste to {"WAVE", "MooV", "MP3 ", "MPG3", "PLAY"}

      repeat with chaque_fichier in the_files
         if ((chaque_fichier as alias) as string) ends with ":" then
         else

            set nouveau to ((chaque_fichier as alias) as string) & ".aif"
            set letype to (file type of chaque_fichier)
            if letype is in laliste then

               tell application "QuickTime Player"
                  activate
                  set xxx to (open (chaque_fichier as alias))
                  with timeout of 600 seconds
                     export xxx to nouveau as AIFF using most recent settings
                  end timeout
                  close window 1

               end tell

            end if

         end if
      end repeat
       tell application "QuickTime Player" to quit
   end tell
end convert_to_aiff

-- following script for demo purposes
on selectFile()
  try
    set theFile to (choose file with prompt "Choose file to convert to AIFF...") as text
  on error
  end try
  open theFile
  return theFile
end selectFile





Keep this extensive resource of tutorials and samples on-line! Support RunRev.info!
Yes, this script is useful. I make a donation and choose freely how much I want to donate on-line (PayPal). Click here if you want to make a donation in dollars.This script has not (completely) solved my problem and I want Economy-x-Talk to take care of it. Let me contact you.
Copyright©2002-2008 by Mark Schonewille, Nijmegen, the Netherlands. This web site is in no way affiliated with Runtime Revolution Ltd., but we do recommend the Revolution development platform.