Re: Text items
Re: Text items
- Subject: Re: Text items
- From: kai <email@hidden>
- Date: Tue, 16 Jan 2007 22:33:39 +0000
On 16 Jan 2007, at 22:17, I wrote:
Actually, I missed a trick there.
And I was still not thinking straight. Sorry. Please replace that
last effort with:
-------------------
to strip_extensions from l to e
set tid to text item delimiters
set text item delimiters to return
set l to (l as Unicode text) & return
repeat
set text item delimiters to "."
if (count l's text items) is 1 then exit repeat
set text item delimiters to "." & paragraph 1 of l's text item -1
set l to l's text items
set text item delimiters to ""
set l to l as Unicode text
end repeat
set text item delimiters to e & return
set l to l's text items
set text item delimiters to return
set l to text 1 thru -2 of (l as Unicode text)
set text item delimiters to tid
l's paragraphs
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"}
set names1 to strip_extensions from names1 to "_M"
--> {"231-001", "231-001", "231-001", "231-001-a", "231-001-a",
"231-001-a"}
-------------------
---
kai
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/mailman//archives/applescript-users
This email sent to email@hidden