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 : mercredi 22 mai 2002 07:00
Objet : applescript_fr Digest #504

        Liste AppleScript francophone Digest #504

 1) ne pas creer un dossier sans nom
    by Marc Venot <thor_tue@xxxxxxx.net>
 2) Re: AppleScript et AppleWorks
    by Hubert Jacquot-Dion <hubert@xxxxxxx.com>
 3) Re: ne pas creer un dossier sans nom
    by "serge.segu" <serge.segu@xxxxxxx.fr>
 4) Re: ne pas creer un dossier sans nom
    by Daniel Varlet <varlet@xxxxxxx.ch>
 5) gérer une photo
    by Marc Venot <thor_tue@xxxxxxx.net>

De : Marc Venot <thor_tue@xxxxxxx.net>
Date : Tue, 21 May 2002 09:56:12 +0200 (MEST)
Objet : [AS] ne pas creer un dossier sans nom

[Script]
set LeChemin to the path to me as string
set AppleScript's (text item delimiters) to ":"
set Ledossier to (((text items 1 thru -2 of LeChemin) as string)) as alias
set Ledossierphoto to ((Ledossier & "photos") as string) as alias

set the Lesgrandesphotos to (every file of Ledossierphoto) as list
set LeNombre to count items of Lesgrandesphotos

tell application "Finder"
	try
		make new folder at Ledossierphoto with properties {name:"mini"}
	end try
end tell
[/Script]

Si le sous-dossier "mini" existe alors l'application en crée un sans titre
(untitled).
Comment l'éviter?

-- 
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net






De : Hubert Jacquot-Dion <hubert@xxxxxxx.com>
Date : Tue, 21 May 2002 10:06:54 +0200
Objet : [AS] Re: AppleScript et AppleWorks

bonjour,
les joies d'AppleScripter AppleWorks....

- une erreur de syntaxe : text body n'est pas une propriété de l'objet, 
c'est un objet. Donc il ne doit pas se trouver dans la liste des 
propriétés.
- AppleWorks ne sait pas traiter un text frame vide, lorsque tu crée un 
text frame manuellement, si tu ne tape pas de texte, le texte frame 
disparait de l'écran. Je pense que c'est ce mécanisme qui complique les 
choses en AppleScript.

Mais grace à AppleScript,on peut créer un texte frame vide, qui reste à 
l'écran. Mais ce nouvel objet ne peut pas recevoir l'objet text body de 
suite... on doit obligatoirement  faire une autre manip avant de remplir 
le text frame... sinon il y a génération d'une erreur.

Dans l'exemple qui suit, je crée deux text frame, et je remplis le 
premier text frame:

tell application "AppleWorks 6"
	make new text frame at (drawing layer of front document) with 
properties {bounds:{50.0, 50.0, 250.0, 62.0}}
	make new text frame at (drawing layer of front document) with 
properties {bounds:{50.0, 50.0, 250.0, 62.0}}
	set text body of text frame 2 of drawing layer of front document to 
"bonjour"
end tell

la numérotation des objets est dynamique, le dernier objet créé porte 
toujours le numéro 1, le numéro 2 correspond donc toujours à l'avant 
dernier.... etc.

Hubert

Le samedi 18 mai 2002, à 09:40 , Jean BOYAULT a écrit :

> J'essaie de faire un script qui crée des boîtes de texte sur des 
> documents
> Appleworks 6.
> J'arrive bien à créer les boîtes mais pas à les remplir de texte.
> Voici mon script, Qui peut me dire où est l'erreur ?
>
> tell application "AppleWorks 6"
>   set MonTexte to ("Un petit exemple de texte")
>   tell drawing layer of front document
>       
>       make new text frame at front with properties {bounds:{50, 50, 200,
> 1200}, text body:MonTexte, rotation:60}
>       --- la boite est bien créée mais elle ne contient pas de texte
>        
>       tell last text frame
>           activate
>           set text body of me to MonTexte -- avec cette ligne, j'ai 
> une  erreur
>        end tell
>    end tell
> end tell






De : "serge.segu" <serge.segu@xxxxxxx.fr>
Date : Tue, 21 May 2002 15:11:30 +0200
Objet : [AS] Re: ne pas creer un dossier sans nom

le 21/05/02 9:56, Marc Venot a écrit - on 21/05/02 9:56, Marc Venot wrote

> Si le sous-dossier "mini" existe alors l'application en crée un sans titre
> (untitled).
> Comment l'éviter?

un canevas ...

[script] --MacOS 8.6

if not flag_ItemExist("HD1:Desktop Folder:test:") then ¬
    New_Folder("test", "HD1:Desktop Folder:")

on flag_ItemExist(path_item_as_string)
    -- teste l'existence de path_item_as_string
    try
        path_item_as_string as alias
        return true
    on error
        return false
    end try
end flag_ItemExist

on New_Folder(name_folder, path_container_as_string)
    -- créé le dossier "name_folder" dans dossier "path_container_as_string"
    tell application "Finder"
        make new folder at folder path_container_as_string ¬
            with properties {name:name_folder}
    end tell
end New_Folder
[/script]

Serge Ségu
"scripts are like haïkus"  Bill Atkinson
--








De : Daniel Varlet <varlet@xxxxxxx.ch>
Date : Tue, 21 May 2002 17:17:34 +0200
Objet : [AS] Re: ne pas creer un dossier sans nom

À 09:56 +0200 le 21.05.2002, Marc Venot écrivait au sujet de "[AS] ne pas creer un dossier sans nom" :
 
> Si le sous-dossier "mini" existe alors l'application en crée un sans titre
> (untitled).
> Comment l'éviter?

La réponse de Serge est exactement ce qu'il faut faire, et répondre... AMHA évidemment.
Découper le plus possible son script en routines réutilisables.

Voilà ce qu'il ne faut pas faire ;-)))) (Ça marche mais ce n'est pas réutilisable simplement/rapidemment) :
Et en plus je me sert presque uniquement du Finder. Les références de dossiers ne seront pas utilisables ailleurs. Sans transformations (coercitions) à l'intérieur d'un tell Finder tout du moins.

[SCRIPT kleenex]
tell application "Finder"
	set monDossier to folder of item ("" & (path to me)) --assure que la coercition de 'path to' marchera 
	set Ledossierphoto to folder "photos" of monDossier
	set  liste_GrandesPhotos to (every file of Ledossierphoto) as list
	-- tu peux aussi filtrer sur le type JPEG TIFF etc... avec 'whose' . Un avantage (quand même...) du Finder
	set nombre_GrandesPhotos to count items of liste_GrandesPhotos
	if not (exists folder "mini" of Ledossierphoto) then
		make new folder at Ledossierphoto with properties {name: "mini"}
	end if
end tell
[/SCRIPT]

A+

-- 
Daniel





De : Marc Venot <thor_tue@xxxxxxx.net>
Date : Wed, 22 May 2002 04:38:22 +0200 (MEST)
Objet : [AS] gérer une photo

> > Si le sous-dossier "mini" existe alors l'application en crée un sans
> titre (untitled).
> > Comment l'éviter?
> 
> La réponse de Serge est exactement ce qu'il faut faire, et répondre...
> AMHA évidemment.
> Découper le plus possible son script en routines réutilisables.
> 
> Voilà ce qu'il ne faut pas faire ;-)))) (Ça marche mais ce n'est pas
> réutilisable simplement/rapidemment) :
> Et en plus je me sert presque uniquement du Finder. Les références de
> dossiers ne seront pas utilisables ailleurs. Sans transformations
(coercitions)
> à l'intérieur d'un tell Finder tout du moins.
> 
> [SCRIPT kleenex]
> tell application "Finder"
> 	set monDossier to folder of item ("" & (path to me)) --assure que la
> coercition de 'path to' marchera 
> 	set Ledossierphoto to folder "photos" of monDossier
> 	set  liste_GrandesPhotos to (every file of Ledossierphoto) as list
> 	-- tu peux aussi filtrer sur le type JPEG TIFF etc... avec 'whose' . Un
> avantage (quand même...) du Finder
> 	set nombre_GrandesPhotos to count items of liste_GrandesPhotos
> 	if not (exists folder "mini" of Ledossierphoto) then
> 		make new folder at Ledossierphoto with properties {name: "mini"}
> 	end if
> end tell
> [/SCRIPT]

Merci, j'aime bien la compacité de ce script.

Ensuite je souhaite qu'AS crée une vignette pour chaque image dans le
dossier mini.

La niche nous propose des explications mais en mélangeant la partie html de
la partie création 
des images cela ne facilite pas ma compréhension.
http://laniche.macplus.net/homepage/2001/1806/180601.shtml
[SCRIPT] continuation
tell application "clip2gif"
		repeat with i in liste_GrandesPhotos
			set LeFichier to i as alias
			set dimensions to measure LeFichier maximum size {100, 100}
			set Largeur to item 1 of dimensions
			set Hauteur to item 2 of dimensions
			display dialog "Largeur" default answer Largeur as string
		end repeat
	end tell
[/SCRIPT]
le programme m'indique une erreur mémoire.

-- 
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net