On 17 Jan 2007, at 01:03, some jumble-brain wrote:
Let's rerun the whole thing as I intended...
Sheesh. That didn't allow for adjustable truncation. Last time.
I'm off to bed. Tomorrow's another day... ;-)
-------------------
to strip_extensions from q to e
script o
property l : q
end script
set c to -1 - (count e)
set tid to text item delimiters
set text item delimiters to "."
considering case
repeat with i from 1 to count o's l
tell text item 1 of o's l's item i to if it ends with e then
set o's l's item i to text 1 thru c
else
set o's l's item i to it
end if
end repeat
end considering
set text item delimiters to tid
end strip_extensions
set names1 to {"231-001_M.tif", "231-001.tif", "231-001.jpg",
"231-001-a_M.tif", "231-001-a.tif", "231-001-a.jpg"}
