Hacking Image Titles

Hi Charley Brown,

I modified the script slightly.

For me, this version is working - give it a try:

--on run {input, parameters}

tell application "Photos"

activate

set imageSel to (get selection)

if imageSel is {} then

error "Please select an image"

else

set n_digits to the length of ((the length of imageSel) as text)

-- compute the number of digits of the number of images

end if

repeat with im in imageSel

set myFileName to filename of im as string

set myDash to the (offsetof "- " inmyFileName) -- the position of the dash

set myDot to the (offsetof "." inmyFileName) -- the position of the dot

-- isolate the filename extension

set fextension to charactersmyDot thru (length of myFileName) of myFileName as text

-- isolate the part up to the dash

set beforeDash to characters 1 thru myDash of myFileName as text

-- isolate the part up to the dash

set afterDash to characters (myDash + 1) thru (myDot - 1) of myFileName as text

set ntext to (afterDash as number) as text

repeat while (the length of ntext < n_digits)

set ntext to "0" & ntext-- this adds leading zeros

end repeat

set newName to beforeDash & " " & ntext & fextension

set the name of im to newName

end repeat

return newName

end tell

--end run

I commented the "on run" part out, so I could test it directly in the Script Editor. You may want to add this again, if you want to start the script in Automator. The "return newName" at the end of the script is just for testing.

your version had a type conflict in this line because of wrong parentheses:

set ntext to characters (myDash of myFileName) thru (myDot of myFileName)

It should have been

set ntext to characters myDash thru myDot of myFileName

You're welcome. 🙂 You already got the most tricky parts correct. There was not much left to do.