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 novembre 2000 18:47
Objet : applescript_fr Digest #62


        Liste AppleScript francophone Digest #62

 1) Re: Import d'images
    by Jean-Marie Hoornaert <jean.marie.hoornaert@xxxxxxx.be>
 2) Essai
    by "lavocat" <daniel.lavocat@xxxxxxx.net>
 3) Re: Essai
    by Net <marinepub@xxxxxxx.fr>

De : Jean-Marie Hoornaert <jean.marie.hoornaert@xxxxxxx.be>
Date : Tue, 21 Nov 2000 23:13:42 +0100
Objet : [AS] Re: Import d'images

Bonsoir,

le 21/11/2000 16:47, lavocat a écrit :

> 
> Bonjour,
> Je suis toujours sur ma gestion des timbres.
> J'ai une base FilMaker (v5) et un dossier contenant des images de timbres
> J'ai donc (grâce à la liste d'ailleurs) un script qui me permet de créer des
> fiches dans mon fichier et dans la fiche créée d'y ajouter le chemin d'une
> image correspondante.
> 
> Voilà j'ai donc :
> Un fichier FMPro avec un champ " N°_Image " de type nombre et un champ "
> Image " de type multimédia.
> Un dossier quelque part sur un disque contenant des images suffixées par
> ..jpg ( ou .PIC mais cela n'a pas d'importance)
> Pour chaque image je dois avoir une fiche qui correspond mais je peux avoir
> beaucoup plus de fiches que d'images
> 
> Vous me suivez toujours ?
> Bien je continue
> 
> Je voudrais fair un script qui me permettrai de faire :
> 
> Sélectionner le dossier contenant les images
> Set FolderPath to (choose folder with prompt " Choississez le dossier
> contenant les images " )
> Puis j'aimerai faire quelque chose du genre
> Repéter jusqu'à la dernière fiche
> Lire le champ " N°_Image " dans FMPro
> Si dans dossier image le fichier " N°_Image " & " .jpg " existe
> Alors importer le chemin de cette image dans le champ " image " de la fiche
> en cours
> Fin de si
> Fiche suivante
> Fin de repeat
> 
Avec un fichier "Images" contenant deux rubriques comme dans la demande.
Un AppleScript (à tester et completer...)

[Script]
set FolderPath to (choose folder with prompt ¬
   " Choississez le dossier contenant les images ")
set Les_images to (list folder FolderPath)
repeat with l_image in Les_images
    set Chemin_vers_image to ((FolderPath as string) & l_image)
    tell application "FileMaker Pro"
        try
            set cell "image" of (every record of database "Images"¬
                whose cell "N°_Image cl" = l_image) ¬
                to file Chemin_vers_image
        end try
    end tell
end repeat
tell application "FileMaker Pro"
    show (every record of database "Images")
end tell
[/Script]

Cordialement.

Jean-Marie -HOO;-)

____________________
Courriel : jean.marie.hoornaert@xxxxxxx.be
PPsP* : http://users.skynet.be/jmh-h2o
* Page Personnelle sans Prétention





De : "lavocat" <daniel.lavocat@xxxxxxx.net>
Date : Wed, 22 Nov 2000 11:43:46 +0100
Objet : [AS] Essai

Bonjour,
La liste a l'air muette alors je fais un essai
==========================================
Daniel Lavocat
Tél : 33-(0)1 30 80 70 24
Fax : 33-(0)1 30 80 65 40
mailto:Daniel.Lavocat@xxxxxxx.Net
==========================================





De : Net <marinepub@xxxxxxx.fr>
Date : Wed, 22 Nov 2000 11:55:29 +0100
Objet : [AS] Re: Essai

Bonjour les AS,
Bonjour Daniel,

J'ai commencé à me pencher sur ta question,
mais fautes de temps je ne pense pas pouvoir
m'y attelé avant la fin de la semaine...

Ne t'impatiente pas, il y a d'autres très bons
sur FMP dans la liste.

A+
Fredo  d:o)

lavocat a *crit :

> Bonjour,
> La liste a l'air muette alors je fais un essai
> ==========================================
> Daniel Lavocat
> Tél : 33-(0)1 30 80 70 24
> Fax : 33-(0)1 30 80 65 40
> mailto:Daniel.Lavocat@xxxxxxx.Net
> ==========================================
>
> --
> Pour vous désinscrire ou régler les options de votre abonnement :
> http://www.macplus.net/ML/AS_fr.shtml

--
Studio Marine
Tél. 01 42 46 36 26
Fax. 01 48 24 02 10