global counter 
global theList 
 
set counter to 1 
set tid to AppleScript's text item delimiters 
 
set TheFile to choose file 
set theExifData to paragraphs of (do shell script "exiftool -a -u -g1 " & quoted form of POSIX path of TheFile) 
set theSearchItemsList to {"Size", "Width", "Height", "X Resolution", "Color Components"} 
 
set theList to {} 
my doExifSearch(theExifData, theSearchItemsList) 
 
on doExifSearch(theString, toSearchFor) 
	repeat with i from 1 to count of theString 
		if counter = 6 then 
			return theList 
			set AppleScript's text item delimiters to tid 
			exit repeat 
			 
		end if 
		set ExifLine to item i of theString 
		set SearchItem to item counter of toSearchFor 
		if ExifLine contains SearchItem then 
			set AppleScript's text item delimiters to ": " 
			set thehit to text item -1 of ExifLine 
			copy thehit to end of theList 
			set counter to counter + 1 
			my doExifSearch(theString, toSearchFor) 
		end if 
	end repeat 
end doExifSearch 
 
--hardcoding 
set Breite to (round 0.008464285714 * (item 2 of theList)) as text 
set Hoehe to (round 0.008464285714 * (item 3 of theList)) as text 
 
set stichwortliste to (item 1 of theList & ", " & "Bei 300 dpi: " & Breite & " x " & Hoehe & " cm" & ", " & "Aktuell: " & item 4 of theList & ", " & "DPI: " & item 5 of theList) 
 
set oldkeywords to do shell script "exiftool -IPTC:Keywords " & quoted form of POSIX path of TheFile 
 
set newkeywords to oldkeywords & ", " & stichwortliste 
 
--IPTC ergaenzen / schreiben 
do shell script "exiftool -IPTC:Keywords=" & quoted form of newkeywords & " " & quoted form of POSIX path of TheFile 

tell application "Adobe Photoshop" 
	tell front document 
		set keywords of info to {"Farbraum", "Größe"} 
	end tell 
end tell 

global counter 
global theList 
 
on open these_items 
	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 
			process_folder(this_item) 
		else 
			process_item(this_item) 
		end if 
	end repeat 
	 
end open 
 
on process_folder(this_folder) 
	set these_items to list folder this_folder without invisibles 
	repeat with i from 1 to the count of these_items 
		set this_item to alias ((this_folder 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 
			process_folder(this_item) 
		else 
			process_item(this_item) 
		end if 
	end repeat 
end process_folder 
 
on process_item(this_item) 
	 
	set counter to 1 
	set tid to AppleScript's text item delimiters 
	 
	set theExifData to paragraphs of (do shell script "exiftool -a -u -g1 " & quoted form of POSIX path of this_item) 
	set theSearchItemsList to {"Size", "Width", "Height", "X Resolution", "Color Components"} 
	 
	set theList to {} 
	my doExifSearch(theExifData, theSearchItemsList) 
	 
	try 
		set Breite to (round 0.008464285714 * (item 2 of theList)) as text 
		set Hoehe to (round 0.008464285714 * (item 3 of theList)) as text 
		 
		set stichwortliste to (item 1 of theList & ", " & "Bei 300 dpi: " & Breite & " x " & Hoehe & " cm" & ", " & "dpi: " & item 4 of theList & ", " & "Kanaele: " & item 5 of theList) 
		 
		--IPTC ergaenzen / schreiben  
		do shell script "exiftool -IPTC:SpecialInstructions=" & quoted form of stichwortliste & " " & quoted form of POSIX path of this_item 
	on error the error_message number the error_number 
		display dialog "Error: " & the error_number & ". " & the error_message giving up after 3 
		my write_error_log(this_item as text) 
	end try 
	 
end process_item 
 
on doExifSearch(theString, toSearchFor) 
	repeat with i from 1 to count of theString 
		if counter = 6 then 
			return theList 
			set AppleScript's text item delimiters to tid 
			exit repeat 
			 
		end if 
		set ExifLine to item i of theString 
		set SearchItem to item counter of toSearchFor 
		if ExifLine contains SearchItem then 
			set AppleScript's text item delimiters to ": " 
			set thehit to text item -1 of ExifLine 
			copy thehit to end of theList 
			set counter to counter + 1 
			my doExifSearch(theString, toSearchFor) 
		end if 
	end repeat 
end doExifSearch 
 
on write_error_log(this_error) 
	set the error_log to ((path to desktop) as text) & "Error.log" 
	try 
		open for access file the error_log with write permission 
		write (this_error & return) to file the error_log starting at eof 
		close access file the error_log 
	on error 
		try 
			close access file the error_log 
		end try 
	end try 
end write_error_log