- Richard Rönnbäck
- Medlem ●
- Norrtälje
- 2004-01-15 16:39
I Panther så har det tillkommit en grym möjlighet att via terminalen konvertera Postscript och EPS-filer till PDF
För en som inte känner för att terminalknacka så har jag knåpat ihop nedanstånde Applescript. Klistra in koden i Manusredigeraren och spara som Program. Därefter dubbelklickar man bara på filen så är resten självförklarande.
Du måste ha Panther, det funkar inte på Jaguar och det är medveten begränsat till filer vars namn slutar på .ps eller .eps
tell application "Finder" set AppleScript's text item delimiters to "" set myOkToRun to true set theSelectedFile to choose file "Välj den EPS- eller PS-fil du vill konvertera till PDF." without invisibles set theSelectedFileName to name of theSelectedFile if name extension of theSelectedFile is "eps" or "EPS" then set theBaseFileName to ((characters 1 thru -5) of theSelectedFileName) as string else if name extension of theSelectedFile is "ps" or "PS" then set theBaseFileName to ((characters 1 thru -4) of theSelectedFileName) as string else set myOkToRun to false display dialog "Filen du valde verkar inte vara en postcriptfil. Välj en fil med korrekt filändelse." with icon stop end if if myOkToRun is true then set the theErrMsg to "" try set theErrMsg to "Kunde inte sätta POSIX-sökväg för den valda filen" set theFilePosixPath to POSIX path of theSelectedFile set theErrMsg to "Kunde inte ange citerad form för den valda filens POSIX-sökväg" set theQuotedInputPosix to quoted form of theFilePosixPath set theErrMsg to "" set theOutputFile to choose file name "Ange ett namn för den nya filen" default name (theBaseFileName & ".pdf") set theErrMsg to "Kunde inte sätta POSIX-sökväg för det nya filnamnet" set theOutputPosix to POSIX path of theOutputFile set theErrMsg to "Kunde inte ange citerad form för det nya filnamnets POSIX-sökväg" set theQuotedOutputPosix to quoted form of theOutputPosix set theErrMsg to "Kunde inte utföra shellscript" set theShellScript to do shell script "pstopdf " & theQuotedInputPosix & " -o " & theQuotedOutputPosix set theOutputFile to (theOutputFile as string) set AppleScript's text item delimiters to ":" set theErrMsg to "Kunde inte hämta objekt -2 av theOutPutFile" set theResultContainer to text item -2 of theOutputFile set AppleScript's text item delimiters to "" if the theResultContainer is "Desktop" then display dialog "Filen \"" & (theBaseFileName & ".pdf") & "\" har lags på skrivbordet" else display dialog ("Filen \"" & (theBaseFileName & ".pdf") & " har lags i mappen \"" & (theResultContainer as string) & "\"") end if on error set AppleScript's text item delimiters to "" if the theErrMsg is not "" then display dialog theErrMsg with icon stop else display dialog "Du valde att avbryta scriptet. Ingen PDF-fil har skapats" with icon 2 end if end try end if end tell