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 19 février 2001 6:00
Objet : applescript_fr Digest #126

        Liste AppleScript francophone Digest #126

 1) Decoupage
    by George Pierre <p.george@xxxxxxx.fr>
 2) Re: Decoupage
    by patpro <patpro@xxxxxxx.net>
 3) Le type d'un fichier
    by o.mathieu@xxxxxxx.fr (olivier)
 4) Re: Le type d'un fichier
    by patpro <patpro@xxxxxxx.net>
 5) test
    by Stephane Debron <stef_boulot@xxxxxxx.com>

De : George Pierre <p.george@xxxxxxx.fr>
Date : Sun, 18 Feb 2001 18:14:06 +0100
Objet : [AS] Decoupage

Salut a tous,

Petit probleme a resoudre ; comment decouper un gros fichier (format word)
en plusieurs fichier. En fait, je dispose de reperes de champs tels :

champs 1 :
champs 2 :
champs 3:

champs 1:
champs 2:

etc....

J'aimerai arriver a un script permettant de creer un fichier pour chaque
enregistrement (champs 1 à champs 3) puis passer au suivant.
J'ai essayé par le copier/coller, (select text "champs1" thru "champs3" of
window 1) mais le script passe directement au dernier des champs et
selectionne la totalite du texte.
Merci pour toute aide fort appréciee.

Pierre 






De : patpro <patpro@xxxxxxx.net>
Date : Sun, 18 Feb 2001 18:25:25 +0100
Objet : [AS] Re: Decoupage

On Sunday, February 18, 2001, at 06:14 PM, George Pierre wrote:

> J'aimerai arriver a un script permettant de creer un fichier pour chaque 
> enregistrement (champs 1 à champs 3) puis passer au suivant. 
> J'ai essayé par le copier/coller, (select text "champs1" thru "champs3" of 
> window 1) mais le script passe directement au dernier des champs et 
> selectionne la totalite du texte. 
> Merci pour toute aide fort appréciee. 

je peux pas t'en dire plus car j'ai pas word sous la main, mais les appli du pack Office ont ceci de formidable qu'elles sont "recordable". Passe dans l'editeur de script, ouvre une nouvelle fenetre de script et clique "mémoriser", repasse dans word et fais tes manipes, puis reviens a l'éditeur et arrete l'enregistrement.
Tu obtiens ainsi une bonne base de travail qu'il "suffit" ensuite de remodeler pour l'adapter a une utilisation plus générale.

j'espere que ca t'aidera.


patpro
-- 
"rien ne se perd, rien ne se crée, tout s'empile"
							- Mon bureau -




De : o.mathieu@xxxxxxx.fr (olivier)
Date : Sun, 18 Feb 2001 20:38:07 +0200
Objet : [AS] Le type d'un fichier

Salut tout le monde
Je cherche à faire un script qui compresse ou décompresse en fonction du
type de fichier. Or la commande 'file type' m'est un peu familière.
voici le mon premier script:

on run
	tell application "Finder"
		activate
		try
			set fichier to choose file with prompt "Sélectionnez le fichier  :"
		on error -- e.g. user cancelled
			return
		end try
		bosse(fichier) of me
	end tell
end run

on open this_file
	bosse(this_file)
end open

on bosse(this_file)
set type_list to {"SITD", "SIT5", "SIT!", "BINA", "ZIP", "TARF"}
	if file type of file this_file is in type_list then
		Expand this_file
	else
		if "Option" is in (keys pressed) then
			Zip this_file
		else
			Stuff this_file
		end if
	end if
end bosse

Ou est mon erreur ?
Merci d'avance.
A+

Pour l'instant je m'enfile le manuel d'AS et des commandes du finder





De : patpro <patpro@xxxxxxx.net>
Date : Sun, 18 Feb 2001 21:13:43 +0100
Objet : [AS] Re: Le type d'un fichier

On Sunday, February 18, 2001, at 07:38 PM, olivier wrote:

> Salut tout le monde 
> Je cherche à faire un script qui compresse ou décompresse en fonction du 
> type de fichier. Or la commande 'file type' m'est un peu familière. 
> voici le mon premier script: 
>  
> on run 
> 	tell application "Finder" 
> 		activate 
> 		try 
> 			set fichier to choose file with prompt "Sélectionnez le fichier  :" 
> 		on error -- e.g. user cancelled 
> 			return 
> 		end try 
> 		bosse(fichier) of me 
> 	end tell 
> end run 
>  
> on open this_file 
> 	bosse(this_file) 
> end open 
>  
> on bosse(this_file) 
> set type_list to {"SITD", "SIT5", "SIT!", "BINA", "ZIP", "TARF"} 
> 	if file type of file this_file is in type_list then 
> 		Expand this_file 
> 	else 
> 		if "Option" is in (keys pressed) then 
> 			Zip this_file 
> 		else 
> 			Stuff this_file 
> 		end if 
> 	end if 
> end bosse 
>  
> Ou est mon erreur ? 

pour utiliser file type tu dois passer par le finder je pense, sous la forme de :

on run
	tell application "Desktop" -- sous MacOS X beta, Finder = Desktop
		activate
		try
			set fichier to choose file with prompt "Sélectionnez le fichier  :"
		on error -- e.g. user cancelled
			return
		end try
		set MonType to file type of file fichier
		bosse(fichier, MonType) of me
	end tell
end run


on bosse(this_file, MonType)
	set type_list to {"SITD", "SIT5", "SIT!", "BINA", "ZIP", "TARF"}
	if MonType is in type_list then

		say "it works"
	end if
end bosse

sinon le script ... tres clean, propre et tout, bravo. Je connaissais pas "keys pressed", mais en tout cas ca marche pas sous MacOS X beta.


patpro
-- 
"rien ne se perd, rien ne se crée, tout s'empile"
							- Mon bureau -




De : Stephane Debron <stef_boulot@xxxxxxx.com>
Date : Mon, 19 Feb 2001 02:44:09 +0100
Objet : [AS] test


tous mes courriers sont revenus avec ça :

Failed to deliver to '<applescript_fr@xxxxxxx.net>'
LIST module(list applescript_fr@xxxxxxx.net) reports:
 account is full (quota exceeded)


Amitiés, Stef
-- 
stef_boulot@xxxxxxx.com
« Du moment qu'on raisonne, on est perdu. Dès qu'on examine une loi, on en
viole le mystère. Il faut obéir sans discuter aux ordres des Puissances
Supérieures, si l'on ne veut se trouver un beau jour, seul, égaré dans ce
pays terrible de la liberté...»  Henri Bosco