Lote converter arquivos do AppleWorks em PDF dentro da pasta de origem, excluir o arquivo original?

0

Provavelmente, o AppleScript é o caminho a seguir - eu encontrei scripts online que fazem isso, mas prevejo em área imprimível grande e coloco arquivos na mesma pasta - eu preciso de arquivos para ficar na pasta de onde veio a fonte. Se o script também excluísse o arquivo original do AppleWorks, isso seria ainda melhor, mas não necessário.

Eu tentei o último script desta postagem:

link

Qualquer sugestão seria muito apreciada.

Aqui está o código final do Yvan:

--{code}
--[SCRIPT batch_AW2PDF]
(*
This script batch prints AW docs in PDF files.

 To use the script, save it as a script or as an "Application Bundle".
As it's not a script which will be used daily, it's not useful to install it in the Scripts Menu.

Run it (or double click its icon)
navigate to the folder containing the docs
click "OK"

or

drag and drop AW documents or folders 
containing AW documents on the script's icon.

In both cases they will be saved as PDF documents.

Yvan KOENIG (Vallauris, FRANCE)
2009/08/27
2010/08/25 - revised
2012/01/10 - supposed to store the PDF in the original folder
2012/01/11 - filter slash and colon in filenames.
*)
--=====

property msg3 : "" -- globale
property msg90 : "" -- globale
property msg91 : "" -- globale
property msg94 : "" -- globale
property msg97 : "" -- globale
property rapport : "" -- globale
property dossierParDefaut : "" -- globale

--=====

on run
    set dossier to choose folder
    my main({dossier})
end run

--=====

on open sel
    my main(sel)
end open

--=====

on main(sel)
    local elem, ptree, nomDuRapport, p2d, p2r, MsgErr, NroErr

    if (system attribute "sysv") < 4176 then
        if (do shell script "defaults read 'Apple Global Domain' AppleLocale") starts with "fr_" then
            error "Ce script requiert MacOS X 10.5 ou supérieur !" number 8001
        else
            error "This script requires MacOS X 10.5 or higher !" number 8001
        end if
    end if

    my activateGUIscripting()
    my nettoie()
    my |prépareMessages|()

    set dossierParDefaut to my getDossierParDefaut()
    try
        repeat with elem in sel
            try
                tell application "System Events" to tell disk item ("" & elem)
                    if class is folder then
                        set ptree to ""
                    else
                        set ptree to path of container
                    end if
                end tell -- System Events
                my exploreTraite(elem, ptree)
            end try
        end repeat

        if rapport = "" then set rapport to msg90 (*
crée un fichier texte sur le Bureau *)
        set nomDuRapport to "report_AW2PDF.txt"
        set p2d to path to desktop
        set p2r to "" & p2d & nomDuRapport
        tell application "System Events"
            if exists (file p2r) then delete (file p2r)
            make new file at end of p2d with properties {name:nomDuRapport}
        end tell -- System Events

        write (rapport as text) to (p2r as alias)

        my afficheLeMessage(msg3) (*
Traitement terminé
• Export done.
*)
    on error MsgErr number NroErr
        if NroErr is not -128 then
            beep 2
            tell application (path to frontmost application as string) to ¬
                display alert "" & NroErr & " : " & MsgErr giving up after 20
        end if -- NroErr is…
    end try

    my nettoie()

end main

--=====

on exploreTraite(elem, ptree) (*
elem est un alias
• elem is an alias *)
    local elemT, laClasse, UTI
    set elemT to "" & elem
    tell application "System Events" to tell disk item elemT
        set laClasse to "" & class
        try
            set UTI to type identifier
        on error
            set UTI to ""
        end try
    end tell -- System Events
    (*
CAUTION, if AppleWorks was never launched under the installed operating system,
UTI will resemble to dyn.age81c65e. Happily, "info for" will return the correct one *)
    ignoring case
        if UTI starts with "dyn" then
            set UTI to type identifier of (get info for file elemT)
        end if
    end ignoring

    if UTI is not in {"", "com.apple.appleworks.document", "com.apple.appleworks.cwk"} then
        set rapport to rapport & elemT & msg94 & return (*
Attention, ce n'est pas un document AW.
• Caution, it's not an AW document *)
    else if UTI is in {"com.apple.appleworks.document", "com.apple.appleworks.cwk"} then
        my traiteUnFichier(elemT, UTI)
    else if laClasse is in {"file package", "«class cpkg»"} then
        set rapport to rapport & elemT & msg91 & return (*
Attention, un package EST un dossier "spécial".
• Caution, a package IS a "special" folder. *)
    else if laClasse is in {"folder", "«class cfol»"} then
        my ExploreUnDossier(elemT, ptree)
    else
        set rapport to rapport & elemT & msg94 & return (*
Pas un document AW.
• not an AW file. *)
    end if
end exploreTraite

--=====

on ExploreUnDossier(dossier, ptree)
    local nomElement, cheminElement
    repeat with nomElement in list folder dossier without invisibles
        try
            set cheminElement to dossier & nomElement
            tell application "System Events" to set c to name of folder dossier
            my exploreTraite(cheminElement as alias, ptree & c & ":")
        on error errMsg number errnbr
            set rapport to rapport & dossier & msg97 & return & errnbr & return & errMsg
        end try
    end repeat
end ExploreUnDossier

--=====

on afficheLeMessage(m)
    beep 1
    tell application (path to frontmost application as string)
        activate
        display alert m giving up after 10
    end tell
end afficheLeMessage

--=====

on traiteUnFichier(cheminDocAW, UTI)
    (*
cheminDocAW is a string *)
    local contenant, nomSource, nomFenetre, nomComplet, cheminPDFtemporaire, cheminPDFfinal

    tell application "System Events" to tell disk item cheminDocAW
        set contenant to path of container
        set nomSource to name
    end tell
    copy nomSource to nomPropre
    if nomPropre contains "/" then
        set nomPropre to my remplace(nomPropre, "/", "_")
    else if nomPropre contains ":" then
        set nomPropre to my remplace(nomPropre, ":", "_")
    end if
    if nomPropre is not nomSource then
        tell application "System Events" to set name of disk item cheminDocAW to nomPropre
        set cheminDocAW to contenant & nomPropre
    end if

    set theDoc to cheminDocAW as alias
    tell application "AppleWorks 6"
        activate
        open theDoc
        delay 0.5
        set docName to name of document 1
        set nomFenetre to get name of window 1
    end tell -- AppleWorks

    set nomComplet to nomFenetre & ".pdf"
    set cheminPDFtemporaire to dossierParDefaut & nomComplet
    tell application "System Events"
        if exists (disk item cheminPDFtemporaire) then set name of disk item cheminPDFtemporaire to nomFenetre & my horoDateur(modification date of file cheminPDFtemporaire) & ".PDF" (* name stamped *)
        tell process "AppleWorks 6"
            keystroke "p" using {command down} (* trigger the Print menu *)
            (*
May be a dialog about margins *)
            if (count of buttons of window 1) = 1 then keystroke return
            (*
Now it's the true dialog window *)
            click menu button 1 of window 1 (* click button (PDF) *)
            click menu item 1 of menu 1 of menu button 1 of window 1 (* click item Print in a PDF file *)
            keystroke return (* idem click OK *)
        end tell -- process
    end tell -- System Events…

    my wait4File(cheminPDFtemporaire)

    -- puis on déplace vers le dossier de stockage
    set cheminPDFfinal to "" & contenant & nomComplet
    tell application "System Events" to if exists (file cheminPDFfinal) then set name of file cheminPDFfinal to nomFenetre & my horoDateur(modification date of file cheminPDFfinal) & ".PDF"
    delay 0.2 (* don't remove it *)
    do shell script "mv " & quoted form of POSIX path of cheminPDFtemporaire & space & quoted form of POSIX path of contenant -- <<<<<<<< THE ERROR was here !!!

    my wait4File(cheminPDFfinal)

    tell application "System Events" to if exists file cheminPDFtemporaire then delete file cheminPDFtemporaire

    tell application "AppleWorks 6"
        close document docName without saving
    end tell
end traiteUnFichier

--=====
(* Wait that the file is completely written on disk 
*)
on wait4File(p) (*
• p must be Unicode text *)
    local oldSize, newSize
    delay 0.5
    set oldSize to 0
    repeat --10 times
        try
            tell application "System Events"
                set newSize to (get physical size of file p)
            end tell -- System Events
            if oldSize < newSize then
                set oldSize to newSize
            else
                exit repeat
            end if -- oldSize < newSize
        end try
    end repeat

end wait4File

--=====

on getPlistValue(valName, default)
    local thePlist, u
    set thePlist to (path to preferences folder as Unicode text) & "com.apple.appleworks.plist"
    tell application "System Events"
        if exists file thePlist then
            tell contents of property list file thePlist
                try
                    set u to (value of property list item valName) (* Unicode Text *)
                on error (*
On est là si AppleWorks n'a rien enregistré avec des préférences neuves
• Here if AppleWorks never saved with the new preferences file. *)
                    set u to default
                end try
            end tell -- to contents of…
        else (*
On est là s'il n'y a pas de fichier de préférences
• Here if there is no preferences file. *)
            set u to default
        end if
    end tell -- to system events
    return u
end getPlistValue

--=====

on getDossierParDefaut()
    local u

    try
        set u to my getPlistValue("NSNavLastRootDirectory", "~/Documents")
        set u to "" & POSIX file (do shell script "echo " & u)
        if u ends with ":" then
            return u
        else
            return (u & ":")
        end if
    on error
        return ("" & (path to documents folder))
    end try
end getDossierParDefaut

--=====
(* Build a stamp from the modification date_time
*)
on horoDateur(date_de_modification)
    local les_secondes
    set les_secondes to time of date_de_modification
    return "_" & text -2 thru -1 of ("0" & (month of date_de_modification as integer)) & text -2 thru -1 of ("0" & day of date_de_modification) & "_" & text -2 thru -1 of ("0" & les_secondes div 3600) & text -2 thru -1 of ("0" & (les_secondes mod 3600) div 60) & text -2 thru -1 of ("0" & les_secondes mod 60)
    (* 
• Here, the stamp is  "_YYYYMMDD_hhmmss" *)
end horoDateur

--=====
(*
replaces every occurences of d1 by d2 in the text t
*)
on remplace(t, d1, d2)
    local oTIDs, l
    set oTIDs to AppleScript's text item delimiters
    set AppleScript's text item delimiters to d1
    set l to text items of t
    set AppleScript's text item delimiters to d2
    set t to "" & l
    set AppleScript's text item delimiters to oTIDs
    return t
end remplace

--=====

on activateGUIscripting()
    tell application "System Events"
        if not (UI elements enabled) then set (UI elements enabled) to true (* to be sure than GUI scripting will be active *)
    end tell
end activateGUIscripting

--===== 

on nettoie() (*
pour ne pas stocker dans le fichier script
• So it will not be stored in the script file *)
    set msg3 to ""
    set msg90 to ""
    set msg91 to ""
    set msg94 to ""
    set msg97 to ""
    set rapport to ""
    set dossierParDefaut to ""
end nettoie

--===== 

on |prépareMessages|()
    if (do shell script "defaults read 'Apple Global Domain' AppleLocale") starts with "fr_" then
        set msg3 to "Terminé !"
        set msg90 to "Conversion réussie sans incident."
        set msg91 to " est un Package !"
        set msg94 to " n’est pas un fichier AppleWorks !"
        set msg97 to " n’a pu être identifié !"
    else
        set msg3 to "Done !"
        set msg90 to "No problem during the recoding process."
        set msg91 to " is a Package !"
        set msg94 to " is not an AppleWorks file !"
        set msg97 to " can’t be identified !"
    end if
end |prépareMessages|

--=====
--[/SCRIPT]
--{code}
    
por Manca Weeks 09.01.2012 / 23:38

2 respostas

0

Yvan realmente respondeu à minha consulta e editou seu script original para salvar arquivos na pasta de origem e contornar quaisquer arquivos que tenham perdido seus forks de recursos.

Eu estarei testando a execução final de seu novo script no meu projeto amanhã e, uma vez feito isso, com sua permissão, postarei o script para que outros possam usá-lo.

Se alguém precisar do script imediatamente, informe-nos.

M

    
por 16.01.2012 / 02:10
-1

Yvan posta um link para o seu script original neste tópico

link

    
por 04.06.2012 / 11:45