igPay atinLay, second pass
igPay atinLay, second pass
- Subject: igPay atinLay, second pass
- From: Michelle Steiner <email@hidden>
- Date: Tue, 28 Sep 2004 14:25:22 -0700
set originalText to¬
"Now is the time for all good queers to come to the aid of their
parties; they should choose sides carefully."
set tempResult to {}
set vowels to {"a", "e", "i", "o", "u"}
set dipthongs to {"th", "ch", "ph", "sh", "qu"}
set translationList to the words of the originalText
repeat with thisWord in translationList
if the first character of thisWord is in the vowels then
set tempResult to tempResult & (thisWord & "yay" as text) as list
else
if text 1 through 2 of thisWord is in dipthongs then
set n to 2
else
set n to 1
end if
set thisWord to (text (n + 1) thru -1 of thisWord) & ¬
(text 1 thru n of thisWord) & "ay" as text
set tempResult to tempResult & thisWord as list
end if
end repeat
set {TID, text item delimiters} to {text item delimiters, space}
set the resultingText to tempResult as text
set text item delimiters to TID
display dialog resultingText
Sincerely,
Michelle Steiner
2840 E. Riviera Place
Chandler, AZ 85249-4934
(480) 219-8796
_______________________________________________
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