nochmal ne dumme frage
Ich habe grad ein bißchen in den Standart Scripts von Tiger gewühlt und habe dort in dem Ordner Scripts\Printing Scripts zwei AppleScripts gefunden:
1. Convert To PDF
(*
Copyright © 2003 Apple Computer, Inc.
You may incorporate this Apple sample code into your program(s) without
restriction. This Apple sample code has been provided "AS IS" and the
responsibility for its operation is yours. You are not permitted to
redistribute this Apple sample code as "Apple sample code" after having
made changes. If you're going to redistribute the code, we require
that you make it clear that the code was descended from Apple sample
code, but that you've made changes.
*)
property RadarProblem3258323IsFixed : false
property type_list : {"JPEG", "GIFf", "PICT", "TIFF", "PDF", "TEXT"}
property extension_list : {"jpg", "gif", "pct", "tif", "pdf", "rtf"}
--html is not currently handled
on run {}
tell application "Finder"
try
set FinderSelection to the selection as alias list
on error
--Finder Scripting fails with one item (Radar problem 2741967)
set FinderSelection to the selection
end try
end tell
if RadarProblem3258323IsFixed then
set FS to FinderSelection
--Ideally, this list could be passed to the open handler
else
set FS to {}
repeat with EachItem in FinderSelection
copy EachItem as alias to end of FS
end repeat
end if
set SelectionCount to number of FS -- count
if SelectionCount is 0 then
set FS to userPicksFolder()
else if the SelectionCount is 1 then
set MyPath to path to me
if MyPath is item 1 of FS then
--If I'm a droplet then I was double-clicked
set FS to userPicksFolder()
end if
else
--I'm not a double-clicked droplet
end if
open FS
end run
on userPicksFolder()
set these_items to {}
set these_items to (choose file with prompt "Select a file to convert to PDF:" of type {"JPEG", "GIFf", "PICT", "TIFF", "TEXT", "RTF"}) as list
end userPicksFolder
on open these_items
set thesefiles to {}
set the item_info to {}
repeat with i from 1 to the count of these_items
set this_item to (item i of these_items)
set the item_info to info for this_item
if folder of the item_info is true then --if the item is a folder
processFolder(this_item)
else if ((folder of the item_info is false) and ¬
(alias of the item_info is false)) and ¬
(the file type of the item_info is in the type_list) or ¬
((the name extension of the item_info) is in the extension_list) then
set theFilePath to (item i of these_items as string)
set thePOSIXFilePath to POSIX path of theFilePath as string
processFile(thePOSIXFilePath)
end if
end repeat
end open
--process folders
on processFolder(theFolder)
set these_items to list folder theFolder without invisibles
repeat with i from 1 to the count of these_items
set this_item to alias ((theFolder as text) & (item i of these_items))
set the item_info to info for this_item
if folder of the item_info is true then
processFolder(this_item)
else if (alias of the item_info is false) and ¬
((the file type of the item_info is in the type_list) or ¬
the name extension of the item_info is in the extension_list) then
set theFilePath to (this_item as string)
set thePOSIXFilePath to POSIX path of theFilePath as string
processFile(thePOSIXFilePath)
end if
end repeat
end processFolder
on processFile(thePOSIXFileName)
try
set terminalCommand to ""
set convertCommand to "/System/Library/Printers/Libraries/./convert "
set newFileName to thePOSIXFileName & ".pdf"
set terminalCommand to convertCommand & "-f " & "\"" & thePOSIXFileName & "\"" & " -o " & "\"" & newFileName & "\"" & " -j \"application/pdf\""
do shell script terminalCommand
end try
end processFile
und 2. About Convert
set carriage_return to return as text
set message_A to "The Convert… scripts convert a file to PDF or PostSctript." & ¬
carriage_return & carriage_return & ¬
"To convert files in batch mode, open the appropriate script (/Library/Scripts/Printing Scripts) in ScriptEditor and save the script as an application. Then drag the files to be converted on to the new application." & ¬
carriage_return & carriage_return & ¬
"A script can also be easily open in Script Editor by holding down the Option Key while selecting that script in the Scripts menu."
display dialog message_A buttons {"OK"} default button 1 with icon note
kann mann mit denen nicht irgendwie was anfangen? Ich verstehe da leider zur zeit halt nur noch Banhof.
Da gäbs auch noch eins "Convert To PostScript.
Oder weiß vieleicht jemand ob das mit dem Automator geht?
als Antwort auf: [#420205]