Apple, AppleScript, AppleScript Studio, AppleTalk, AppleWorks, ColorSync, Finder, HyperCard, iBook, iLife, iMac, iWork, Keynote, Mac, Macintosh, Mac OS, Pages, Panther, PowerBook, Power Mac, Power Macintosh, QuickTime, Safari, Tiger, Xcode sont des marques déposées par Apple Computer, Inc., enregistrées aux Etats-Unis et dans les autres pays. Liste officielle

De : (Liste AppleScript francophone) <applescript_fr@xxxxxxx.net>
À : "(Liste AppleScript francophone)" <applescript_fr@xxxxxxx.net>
Date : lundi 8 octobre 2001 07:00
Objet : applescript_fr Digest #304

        Liste AppleScript francophone Digest #304

 1) (OSX) scriptons le terminal...
    by patpro <patpro@xxxxxxx.net>
 2) Re: (OSX) scriptons le terminal...[ERRATUM]
    by patpro <patpro@xxxxxxx.net>
 3) Re: conversion textes
    by "Serge.Tegta" <Serge.Tegta@xxxxxxx.fr>
 4) Re: conversion textes
    by Hubert Jacquot-Dion <hubert@xxxxxxx.com>

De : patpro <patpro@xxxxxxx.net>
Date : Sun, 07 Oct 2001 13:08:04 +0200
Objet : [AS] (OSX) scriptons le terminal...

Salut,

bon, j'ai fait mon premier script AS sous OSX et j'en ai profité pour
utiliser la scriptabilité du terminal pour envoyer quelques commandes UNIX.

Ce script n'est pas inutile, il permet de changer la transparence des
fenêtres de terminal. Cet élément de configuration n'est pas accessible dans
les préférences de l'application, donc ce script permettra à tout le monde
de le paramétrer sans mettre les mains dans le fichier de préférence.

voila la bêeeeete (comments inside):

[script]

-- liste de tous les chiffres
set MesChiffres to "1234567890"

-- valeur de l'opacité du terminal, décomposée pour être manipulée
-- plus facilement, le "\\." représente la virgule numérique, la commande
-- unix de remplacement de texte nécessite un "\" devant le "." et AS
-- necessite un "\" devant le "\", d'où le "\\."
set MonTemplate to {"1", "\\.", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "e+00"}

-- chemin vers le dossier "Préférences" de l'utilisateur qui lance le
-- script. En langage unix c'est équivalent à ~/Library/Preferences/
set MesPref to path to preferences as string

-- rien que du classique, on ouvre le fichier pref, on lit son contenu dans
-- une variable et on tronçonne tout ça proprement pour récupérer la
-- valeur numérique actuelle de l'opacité dans MonOpacite.
set MonFile to open for access alias (MesPref & "com.apple.Terminal.plist")
try
    set MonStream to read MonFile
    close access MonFile
on error
    close access MonFile
end try
set MonOffset to offset of "TerminalOpaqueness" in MonStream
set MaListe to read MonFile using delimiter {"<", ">"} as list ¬
    from MonOffset
set MonOpacite to item 5 of MaListe

-- l'utilisateur saisi la nouvelle valeur de l'opacité
set MaNvlleOpacite to text returned of (display dialog ¬
    "Nouvelle valeur de l'opacité du terminal (entre 0 et 1) : " ¬
    default answer "" & (characters 1 thru 5 of MonOpacite) & "")

-- ici on tronçonne et on test en utilisant la liste MonTemplate
-- comme réceptacle pour les morceaux
set MaNvlleOpacite to characters of MaNvlleOpacite as list
set Premier to true
set MaLongueur to length of MaNvlleOpacite
set LongTemplate to length of MonTemplate
if MaLongueur < (LongTemplate - 1) then
    set MaBorne to MaLongueur
else
    set MaBorne to (LongTemplate - 1)
end if
repeat with i from 1 to MaBorne
    if Premier then
        if (item 1 of MaNvlleOpacite) is "0" then
            set Premier to false
            set item 1 of MonTemplate to "0"
            set i to i + 1
        else
            set Premier to false
            exit repeat
        end if
    end if
    if (item i of MaNvlleOpacite) is in MesChiffres then
        set item i of MonTemplate to item i of MaNvlleOpacite
    end if
end repeat

-- encore du formatage pour passer de X.YZ à X\\.YZ
set AppleScript's text item delimiters to {"."}
set MonOpacite to text items of MonOpacite as list
set AppleScript's text item delimiters to {""}
set MonOpacite to (item 1 of MonOpacite) & "\\." & (item 2 of MonOpacite) as
string

-- TADAAAAAAAAAMMMM (hmmm, désolé :)
-- la je résume : on envoie au terminal la commande unix
-- que l'on peut schematiser comme suit :
-- sed s/A/B/ fichier.pref > fichier.temp : cela cherche-remplace
-- A par B dans fichier.pref et colle le résultat dans fichier.temp
-- ensuite (apres le ';' on a la commande rm fichier.pref qui efface ce
-- fichier.pref, et pour finir mv fichier.temp fichier.pref qui renomme
-- fichier.temp en fichier.pref.
-- voila :)
tell application "Terminal"
    do script with command "sed 's/" & MonOpacite & "/" & MonTemplate & ¬
        "/' ~/Library/Preferences/com.apple.Terminal.plist >
~/Library/Preferences/com.apple.Terminal.TEMP ;" & ¬
"rm ~/Library/Preferences/com.apple.Terminal.plist ;" & ¬
"mv ~/Library/Preferences/com.apple.Terminal.TEMP" & ¬
"~/Library/Preferences/com.apple.Terminal.plist"
end tell

[/script]


patpro (oui je m'en rends compte c'est illisible)

-- 
"Rien ne se perd, rien ne se crée, tout s'empile"
                             - Mon Bureau -






De : patpro <patpro@xxxxxxx.net>
Date : Sun, 07 Oct 2001 13:27:55 +0200
Objet : [AS] Re: (OSX) scriptons le terminal...[ERRATUM]

le 7/10/01 13:08, patpro à patpro@xxxxxxx.net a écrit :

une petite erreur d'optimisation s'est glissée dans mon script
(ca m'apprendra à faire l'optimisation dans outlook)

> try
> set MonStream to read MonFile
> close access MonFile
> on error
> close access MonFile
> end try
> set MonOffset to offset of "TerminalOpaqueness" in MonStream
> set MaListe to read MonFile using delimiter {"<", ">"} as list ¬
> from MonOffset
> set MonOpacite to item 5 of MaListe

il faut lire : 

try
    set MonStream to read MonFile
    set MonOffset to offset of "TerminalOpaqueness" in MonStream
    set MaListe to read MonFile using delimiter {"<", ">"} as list ¬
        from MonOffset
    set MonOpacite to item 5 of MaListe
    close access MonFile
on error
    close access MonFile
end try

patpro, toutes mes confuses
-- 
 ()    Campagne du ruban ascii...
 /\    Contre les mails en html, les vcards et les blaireaux






De : "Serge.Tegta" <Serge.Tegta@xxxxxxx.fr>
Date : Sun, 07 Oct 2001 19:13:07 +0100
Objet : [AS] Re: conversion textes

Bonjour
Je cherche à convertir des texte en francais correcte en francais sans
accent, sans cedille, enfin en texte qui pourait sans probleme rentrer dans
les metatag d'une page html par exemple...
Avez vous en réserve un script comme ça, qui fonctionerait avec textedit
plus, ou autre petit logiciel de texte... ?
merci
a+
g






De : Hubert Jacquot-Dion <hubert@xxxxxxx.com>
Date : Sun, 7 Oct 2001 21:53:21 +0200
Objet : [AS] Re: conversion textes

Bonsoir,

Voici une solution avec les text item delimiters :

set CarAccent to {"é","è","ê","à"}
-- à compléter avec tous les caractères accentués existant...
set CarSansAccent to {"e","e","e","a"}
-- doit suivre chaque caractère accentué, par celui non accentué
set MonText to "Ceci est un test, préférer l'accès à la fenêtre"
-- mettre le text à traduire ici; la taille est limitée, il faudra 
peut-être s'y reprendre à plusieurs fois pour les textes volumineux
set TextTraduit to ""
-- sert à contenir le texte sans les caractères accentués
repeat with i from 1 to count CarAccent
-- dans cette boucle qui tourne pour le nombre de caractères accentués 
contenus dans CarAccent, on remplace chaque caractère accentué par son 
homologue non accentué
	set Applescript's text item delimiters to {item i of CarAccent}
	set TextTraduit to every text item of MonText
	set Applescript's text item delimiters to {item i of CarSansAccent}
	set MonText to TextTraduit as string
end repeat
set Applescript's text item delimiters to {""}

Hubert

Le dimanche 7 octobre 2001, à 08:13, Serge.Tegta a écrit :

> Bonjour
> Je cherche à convertir des texte en francais correcte en francais sans
> accent, sans cedille, enfin en texte qui pourait sans probleme rentrer 
> dans
> les metatag d'une page html par exemple...
> Avez vous en réserve un script comme ça, qui fonctionerait avec textedit
> plus, ou autre petit logiciel de texte... ?
> merci
> a+
> g
>
>
> --
> Pour vous désinscrire ou régler les options de votre abonnement :
> http://www.macplus.net/ML/AS_fr.shtml
>