an annual calendar somewhere? - French Version

Francis Nugent Dixon effendi at wanadoo.fr
Fri Feb 26 05:43:23 CST 2010


Hi from Beautiful Brittany,

I played with "zryip theSlug's" code for all of
30 seconds, replace ncal command by "cal 2010",
corrected the line ending errors, corrected the
month of August, and it all works fine for me.
I'm on 10.5.8.

Merci Monsieur "zryip theSlug"

Francis

> on mouseUp
>   local tTheCal, tTheMonth, tTheFrenchMonth, tTheDay, tTheFrenchDay
>
>   put  
> "January 
> ,February 
> ,March 
> ,April,May,June,July,August,September,October,November,December"  
> into tTheMonth
>   put  
> "Janvier 
> ,Février 
> ,Mars 
> ,Avril,Mai,Juin,Juillet,Août,Septembre,Octobre,Novembre,Décembre"  
> into tTheFrenchMonth
>   put "Mo,Tu,We,Th,Fr,Sa,Su" into tTheDay
>   put "Lu,Ma,Me,Je,Ve,Sa,Di" into tTheFrenchDay
>
>   put shell("cal 2010") into tTheCal
>
>   -- Translate month
>   repeat with x = 1 to number of items in tTheMonth
>      replace (item x of tTheMonth) with (item x of tTheFrenchMonth)  
> in tTheCal
>   end repeat
>
>   -- Translate day
>   repeat with x = 1 to number of items in tTheDay
>      replace (item x of tTheDay) with (item x of tTheFrenchDay) in  
> tTheCal
>   end repeat
>
>   put tTheCal into fld "MyCal"
>
> end mouseUp
>









More information about the use-livecode mailing list