Script to change photo caption in iWeb to iPhoto comment text

Question

Hi,
Does any body know, how I could automatic replace the caption of the photos I have imported from iPhoto with the Media Browser to iWeb with the comment text I have in iPhoto for every photo?
It should be just a script, which gets told the album and the looks for the file name which is in the caption, reads the comment for the photo in iPhoto and then puts replaces the caption with it in iWeb, then the next photo ...
I'm not good in scripting.;-(
Thanks and Regards,
JO

Answer 1

Ok, here my script, what I'm using now to copy the comment to the title in iPhoto before importing the photos to iWeb:
try
tell application "iPhoto"
activate
copy (my selected_images()) to these_images
if these_images is false then ¬
error "Please select the images."
display dialog "Copy comment to title for the selected photos?"
set the image_count to the count of these_images
display dialog "Processing " & (the image_count as string) & " photos." & return & return & "This will take a moment..." buttons {"•"} default button 1 giving up after 2
repeat with i from 1 to the image_count
set this_photo to item i of these_images
tell this_photo
set the title to the comment of this_photo
end tell
end repeat
end tell
on error error_message number error_number
tell application "iPhoto"
activate
if the error_number is not -128 then
display dialog error_message buttons {"OK"} default button 1
end if
end tell
end try
on selected_images()
tell application "iPhoto"
try
-- get selection
set these_items to the selection
-- check for single album selected
if the class of item 1 of these_items is album then error
-- return the list of selected photos
return these_items
on error
return false
end try
end tell
end selected_images