Re: Days and hours
Re: Days and hours
- Subject: Re: Days and hours
- From: kai <email@hidden>
- Date: Mon, 24 Oct 2005 03:01:07 +0100
On 24 Oct 2005, at 00:53, I wrote:
The following variation...
...which should have been:
-------------
on listToText from l around d
set text item delimiters to d
tell l to beginning & ({""} & rest)
end listToText
on localizedMonths()
set l to {}
tell "1 1 1" to tell (my date it) - days to repeat 12 times
set day to 32
tell it + days * (9 - (its weekday)) to set l's end to space
& date string & space
end repeat
set tid to text item delimiters
set l to listToText from l around return
repeat with n in "0123456789"
set text item delimiters to n
set l to listToText from l's text items around ""
end repeat
set text item delimiters to space
repeat with i in (get text items of text 2 thru -2 of l's
paragraph 1)
set text item delimiters to space & i & space
if (count l's text items) > 12 then set l to listToText from
l's text items around space
end repeat
set text item delimiters to space & return & space
set l to listToText from text items of l's text 2 thru -2 around
return
set text item delimiters to tid
l's paragraphs
end localizedMonths
choose from list localizedMonths()
-------------
---
kai
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden