Comments on: PDFs mal schnell Taggen

By: adam

adam — Tue, 24 Nov 2009 12:44:55 +0000

hiya. thanks for the tool. would really really appreciate it if you can repeat the instructions again in english :) thanks for the tool!

By: hubionmac.com » Kleiner Bugfix in PDF MetaEdit

hubionmac.com » Kleiner Bugfix in PDF MetaEdit — Mon, 07 Sep 2009 22:04:45 +0000

[...] September, 2009 (00:04) | Software I Use, hubionmac.com, pdf | By: hubi PDF MetaEdit Ist ein kleines Tool, dass ich zum Editieren der Meta-Daten von PDFs nutze, damit diese leichter [...]

By: VLC

VLC — Thu, 30 Jul 2009 10:57:25 +0000

Gut!

By: Hubi

Hubi — Sat, 13 Jun 2009 08:33:55 +0000

Ja, auch möglich... Der Weg wäre mir aber zu speziell, die Keywords aus den PDF Tags kann jeder auslesen, deshalb mache ich ja pdfs draus. Spotlight Kommentare werden aber nicht in der Datei selben gespeichert.
Was würde ich also machen, wenn ich auf einmal auf Windows 7 umsteige ;-)

By: fidel

fidel — Fri, 12 Jun 2009 10:59:18 +0000

hi,

wenns dir nur um die Auffindbarkeit via Spotlight gehen würde ... würde sich das ganze auch via Finder-Selections and Spotlight Tags im Get-Info Feld leicht halbautomatisch erschlagen lassen a la

tell application "Finder" activate


	-- get selected items

	set fileList to selection
	-- Check if there is something selected in Finder

	if (count result) is 0 then

		try

			get (target of front Finder window) as alias

		on error

			choose folder with prompt "Set comments of files in this folder:"

		end try
		try

			set theFolder to result

			set fileList to every file of folder (result) as alias list

		end try

	end if
	-- Comment Dialog

	display dialog "Comment:" default answer "" buttons {"Overwrite", "Cancel", "Append"} default button 3 with title "Set Spotlight Comments"
	-- Save Result

	set userInput to the result

	set newComment to text returned of userInput

-- If Overwrite if (button returned of userInput) is "Overwrite" then if (class of first item of fileList) is alias then set comment of every file of folder theFolder to newComment else repeat with thisFile in fileList set comment of thisFile to newComment end repeat end if else -- If Append repeat with thisFile in fileList tell thisFile if length of (comment as text) is not 0 then get ", " & newComment else get newComment end if set comment to (comment & result) end tell end repeat end if end tell

Gruß
fidel