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 : jeudi 11 janvier 2001 6:00
Objet : applescript_fr Digest #96

        Liste AppleScript francophone Digest #96

 1) Re: chemin d'accès, etc.../ Daniel	Varlet
    by Georges Schell <gs@xxxxxxx.com>
 2) question de references
    by serge segu <wirinum@xxxxxxx.fr>

De : Georges Schell <gs@xxxxxxx.com>
Date : Wed, 10 Jan 2001 15:48:17 +0100
Objet : [AS] Re: chemin d'accès, etc.../ Daniel Varlet


Voici à quoi je suis arrivé : voir ce qui est plus bas....
------------------------------------------------------------
on open theDossiers --  ;-)
   set AppleScript's text item delimiters to {":"}
   set PathDossier01 to theDossiers as text -- chemin d'accès avec nom de
dossier sur Hd Serveur
   
   set pathdossier99 to last item of PathDossier01 as text -- nom du dossier
lui-même
   
   set PathDossier02 to rest of (text items of PathDossier02) as text --
supprime le nom HD Serveur
   set PathDossier02 to "Disque 2" & (rest of (text items of PathDossier02))
-- nom de dossier sur disque 2

   -- * Suppression du nom de dossier lui-même :
   set PathDossier03 to reverse of (text items of PathDossier02) as text
--nom de dossier en 1er
   set PathDossier03 to rest of (text items of PathDossier03) as text --
supprime les 2 points
   set PathDossier03 to rest of (text items of PathDossier03) as text --
supprime le nom du dossier
   set PathDossier03 to reverse of (text items of PathDossier03) as text --
on a le path surDisque 2!
   
   try
       get alias (PathDossier03 as text) -- on essaie le path sur Disque 2
   on error -- le dossier contenant n'a pas été créé!
       display dialog ¬
           "Chemin d'accès inexistant" buttons {"OK"} ¬
           default button 1 with icon stop
       error number -128
   end try
   try
       get alias (PathDossier02 as text) -- on recherche si le dossier
existe sur Disque 2
   on error -- le dossier n'existe pas, on peut copier!
****************************************************************************
       COMMENT COPIER avec la même arborescence que sur HD Serveur, mais sur
Disque 2?
****************************************************************************
    end try
   
end open

------------------------------------------------------------


> De : Daniel Varlet <varlet@xxxxxxx.ch>
> Répondre à : <applescript_fr@xxxxxxx.net> (Liste AppleScript francophone)
> Date : Mon, 8 Jan 2001 13:04:10 +0100
> À : <applescript_fr@xxxxxxx.net> (Liste AppleScript francophone)
> Objet : [AS] Re: chemin d'accès, etc...
> 
> 
> 
> À 09:59 +0100 le 08.01.2001, Georges Schell écrivait au sujet de "[AS]
> chemin d'accès, etc..." :
>> Bonjour à tous,
> 
> Je n'a pas bien compris clairement tout ce que tu demandais. Mais ce n'est
> pas évident de formuler la bonne question ;-) alors je te donne les
> éléments. à toi de les ajuster.
>> 
>> Je voudrais mettre au point un script qui :
>> 
>> 1) lise le chemin d'accès d'un dossier (c'est sur un disque dont le nom est
>> ; "HD Serveur" [très original !])
> 
> set PathDossier01 to (path to MonDossier01) as text -- ????
> ou
> set  PathDossier01 to choose folder as text
> 
>> 2) remplace ce nom de disque par "Disque 2"
> 
> Bon, c'est là que c'est le plus intérressant :
> 
> set AppleScript's text item delimiters to {":"}
> set PathDossier02 to "Disque 2" & (rest of (text items of PathDossier01))
> set AppleScript's text item delimiters to {""}
> 
> note  sur les propriétés des listes :
> 
> Length: An integer containing the number of items in the list. This
> property is read-only.
> 
> Rest : A list containing all items in the list except the first item.
> 
> Reverse : A list containing all items in the list, but in the opposite
> order.
> 
>> 3) si ce chemin d'accès n'existe pas, message "chemin d'accès inexistant"
>> FIN
> 
> try
> get alias (PathDossier02 as text)
> on error
> display dialog ¬
> "chemin d'accès inexistant" buttons{"OK"}¬
> default button 1 with icon stop
> error number -128
> end try
> 
>> 4) vérifie sur ce chemin d'accès si le dossier existe
> 
> if  last item of  PathDossier02 is in rest of (reverse of  PathDossier02) then
> 
>> 5) S'il existe : message "le dossier a déjà été copié" FIN
> 
> display dialog ¬
> "le dossier a déjà été copié" buttons{"OK"}¬
> default button 1 with icon stop
> error number -128
> 
>> 6) s'il n'existe pas, le copier et déplacer l'original vers la corbeille
>> Message "Dossier copié" FIN
> 
> else
> tell app "finder"
> duplicate alias PathDossier01  to disk "Disque 2" without replacing
> delete alias PathDossier01
> activate
> display dialog ¬
> "Dossier copié" buttons{"OK"}¬
> default button 1 with icon stop
> error number -128
> end tell
> end if
> 
>> Merci pour vos avis éclairés !...
> 
> Si il y a quelques erreurs, désolé, pas vérifié. Prends ça plutôt comme des
> indications...
> 
> A+
> 
> -- 
> Daniel
> 
> --
> Pour vous désinscrire ou régler les options de votre abonnement :
> http://www.macplus.net/ML/AS_fr.shtml






De : serge segu <wirinum@xxxxxxx.fr>
Date : Wed, 10 Jan 2001 19:07:07 +0100
Objet : [AS] question de references

quelle difference entre ces 3 formulations
au niveau rapidité d'un script ?

1) set temp to "DéDé:monDossier:monFichier"
2) set temp to alias "DéDé:monDossier:monFichier"
3) set temp to a reference to file "DéDé:monDossier:monFichier"

merci d'avance :-)

-- 
serge

"Une belle idée qui n'aboutit pas vaut mieux
qu'une mauvaise qui voit le jour" Pierre Dac