Extraction de données WhereFroms dans un fichier

Je vois un certain nombre de messages sur la façon de supprimer les données des attributs étendus WhereFrom, mais je voudrais faire le contraire et extraire les informations dans un fichier.

Je télécharge des photos Creative Commons à partir de Flickr et fournit des crédits photo sur mon blog.

J'aimerais créer une action de dossier qui extrait l'URL WhereFrom de la photo dans un fichier. Ainsi, je peux facilement copier-coller l'URL dans le crédit photo de mon blog. Cela me donnerait également une archive de tous mes téléchargements.

J'ai essayé de désosser certains des scripts de suppression sur StackExchange mais je n'ai pas eu de chance.

Essayez ceci dans une action Run Applescript:

    on run {input, parameters}
    set filePath to "/Users/UserName/Documents/WhereFroms.txt"


    repeat with i from 1 to number of items in input
        set this_item to item i of input
        tell application "Finder" to set displayedname to displayed name of this_item
        set this_item to this_item as string
        set this_item to POSIX path of this_item as string
        set theFroms to (do shell script "mdls -name kMDItemWhereFroms " & quoted form of this_item)
        set allFroms to (do shell script "echo " & quoted form of theFroms & "| cut -d'(' -f2- |cut -d')' -f1 ")--strip crap

        set WhereFroms to "File: " & displayedname & return & "From:  " & (allFroms & return & return)
        do shell script "echo " & quoted form of WhereFroms & "  >> " & quoted form of filePath
    end repeat

end run