This is weird
This is weird
- Subject: This is weird
- From: Michelle Steiner <email@hidden>
- Date: Sun, 12 Sep 2004 15:55:09 -0700
I just sent a message, in RTF format, to this list, and received the
following reply:
Your mail to 'Applescript-users' with the subject
Format test
Is being held until the list moderator can review it for approval.
The reason it is being held:
Message body is too big: 21741 bytes with a limit of 12 KB
Either the message will get posted to the list, or you will receive
notification of the moderator's decision. If you would like to cancel
this posting, please visit the following URL:
Here is the message (not in RTF format this time) that was held:
I wanted to test formatting on this list so I'm pasting in a small
script I wrote a while back. It tells me what percentage of my life
was spent in the US Army at the end of any given year. from the year I
enlisted until the present.
I hope that when I receive it on the list, the colors, size and type
face and styles remain intact as in my script editor.
-- Michelle
set the data_set to {}
set time_in_svc to 0
set bday to "december 1, 1942" --my birthday
set byr to year of date bday
set enlday to "march 9, 1961" --the day I enlisted
set enlyr to year of date enlday
set retday to "May 31, 1983" --the day I retired
set retyr to year of date retday
set thisyr to year of (current date)
repeat with loopyr from enlyr to thisyr
set age to loopyr - byr
if loopyr is less than retyr then
set time_in_svc to loopyr - enlyr
end if
set percentage to time_in_svc / age
set percentage to (((percentage * 10000) as integer) / 100) as text
copy {"\"" & (text -2 through -1 of ("0" & (loopyr as text)) & "\""),
percentage} ¬
to end of data_set
end repeat
set the filename to choose file name
try
set the fRef to (open for access filename with write permission)
write "year" & tab & "percentage of life in army" & return to fRef
repeat with loop from 1 to (count of data_set)
write (item 1 of item loop of data_set) & tab ¬
& (item 2 of item loop of data_set) & return to fRef
end repeat
on error errMsg
display dialog errMsg
close access fRef
return
end try
close access fRef
--
"The right to be heard does not automatically include the right to be
taken seriously." -- Hubert H. Humphrey
_______________________________________________
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