| |
Utiliser FileIO
L'Xtra FileIO est apparue après la sortie de la version
5 de Director pour remplacer avantageusement l'Xobjet FileIO. Elle
remplit toujours la même fonction : écrire et lire
depuis un script Lingo, un fichier texte enregistré sur le
disque dur de l'utilisateur. La mise en oeuvre de l'Xtra est la
même sur Mac comme sur PC.
Nous vous proposons ci-après de mettre en œuvre l'Xtra
depuis la fenêtre message de Director attendu que toutes les
commandes utilisées ici (sauf showXlib) sont utilisables
dans un script habituel.
Les manipulations qui suivent supposent que l'Xtra FileIO se trouve
dans le dossier Xtras au démarrage de Director.
Commençons par enregistrer l'animation actuelle sur le bureau
du mac (ou celui de windows) ce qui nous permettra de voir les fichiers
que nous allons manipuler.
On ouvre la fenêtre message et l'on s'enquiert des Xtras et
Xobjets disponibles par la commande Lingo ShowXlib. Le réponse
est très laconique. Jugez-en plutôt :
showXlib
-- XLibraries:
-- Xtra: QTVRXtra
-- Xtra: ScriptColor
-- Xtra: PrintOMatic_Lite
-- Xtra: NetLingo
-- Xtra: Mui
-- Xtra: fileio
-- "*Standard.xlib"
-- XObject: SerialPort Id:200
-- XObject: XCMDGlue Id:2020
Le contenu de cette liste peut varier mais sa structure est toujours
la même : D'abord les Xtras (sous le titre XLibrairies) puis
viennent les Xobjets et autres (sous le titre Standard.xlib). Pour
info, XCMDGlue est un xobjet intégré à Director
qui permet d'utiliser les fragments de code ( XCMDs, XFCNs) destinés
initialement à Hypercard, (sur PC, on rencontrera DLLGlue
qui joue ce même rôle d'intermédiaire à
l'usage des librairies liées dynamiques DLL). On a ici avec
SerialPort deux ressources XCODs intégrées à Director
et non pas des XObjets externes. Director 7 n'accepte que les Xtras.
Pour apparaître dans cette liste, les xtras Lingo doivent
être placés dans le dossier Xtras au lancement de l'application
ou bien encore être ouvertes ponctuellement par la commande
openXlib.
Les Xobjets doivent être appelés par openXlib.
Les XCMDs et XFCNs doivent être ouvertes par openXlib. L'xobjet
intégré XCMDGlue se chargeant de gérer dansDirector
l'utilisation des ces commandes externes destinées en fait
à enrichir Hypercard.
Placé dans le dossier Xtras de Director, FileIO immédiatement
disponible , nous pouvons lui demander son mode d'emploi par
la commande Lingo mMessagelist qui retourne les méthodes
de l'Xtra :
mMessagelist(xtra "fileio")
Et, pour en obtenir l'affichage :
put the result
Le résultat de cette demande d'explication est on ne peut
plus clair ! ;-)
-- "xtra fileio
-- CH 18apr97
new object me
-- create a new child instance
fileName object me
-- return fileName string of the open file
status object me
-- return the error code of the last method called
error object me, int error
-- return the error string of the error
setFilterMask object me, string mask
-- set the filter mask for dialogs
openFile object me, string fileName, int mode
-- opens named file. valid modes: 0=r/w 1=r 2=w closeFile object
me
-- close the file display
Open object me
-- displays an open dialog and returns the selected fileName to
lingo
displaySave object me, string title, string defaultFileName
-- displays save dialog and returns selected fileName to lingo
createFile object me, string fileName
-- creates a new file called fileName
setPosition object me, int position
-- set the file position
getPosition object me
-- get the file position
getLength object me
-- get the length of the open file
writeChar object me, string theChar
-- write a single character (by ASCII code) to the file
writeString object me, string theString
-- write a null-terminated string to the file
readChar object me
-- read the next character of the file and return it as an ASCII
code value
readLine object me
-- read the next line of the file (including the next RETURN) and
return as a string
readFile object me
-- read from current position to EOF and return as a string
readWord object me
-- read the next word of the file and return it as a string
readToken object me, string skip, string break
-- read the next token and return it as a string
getFinderInfo object me
-- get the finder info for the open file (Mac Only)
setFinderInfo object me, string attributes
-- set the finder info for the open file (Mac Only)
delete object me
-- deletes the open file
+ version xtraRef
-- display fileIO version and build information in the message window
* getOSDirectory
-- returns the full path to the Mac System Folder or Windows Directory
"
Ce poème est constitué de l'ensemble des fonctions
offertes. Certaines de ces fonctions (appelées méthodes
globales) peuvent être invoquées directement :
getosdirectory
put the result
-- "The eight ball:Dossier Système:"
D'autres exigent que l'Xtra elle-même leur soit passée
en argument (les "méthodes de classe" héritée
à l'Xtra de Director et précédées par
un +). D'autres enfin imposent la création d'une instance
de l'Xtra.
On commence donc par appeler une méthode permettant la création
d'une instance, un enfant de l'Xtra. Le résultat de l'instanciation
sera stocké dans la variable CRAPO. CRAPO sera donc le nom
de l'enfant à naître (rappel : toute variable
créée dans la fenêtre message est globale).
set CRAPO to new(xtra "fileio")
Les fautes de frappes sont trop faciles, aussi à intervalle
régulier nous nous soucierons de savoir si tout c'est bien
passé
la fonction Status() retourne un numéro d'erreur pour la
dernière opération commandée à l'enfant.
Mais que ferions nous d'un numéro dont la signification nous
est inconnue ?
La fonction error() qui prend deux arguments : l'enfant et un numéro
d'erreur, va effectuer la nécessaire traduction :
put error(CRAPO,status(CRAPO))
-- "OK"
La réponse est claire. Tout s'est bien passé. Nous
pouvons continuer et demander à CRAPO de créer
un fichier sur le bureau du mac :
createFile(CRAPO,"the eight ball:desktop folder:monfichier")
Après quelques instants, le fichier apparaît sur le
bureau avec une icône indéterminée. Sur un mac,
un fichier possède un type et un créateur (quatre
caractères à chaque fois). Ce sont ces infos
qui permettent au Finder d'afficher la bonne icône sur le
bureau et de lancer la bonne application le cas échéant
si l'on double-clique sur l'icône. Dans le cas présent
nous allons créer un fichier de type texte et l'associer
à TeachText :
setFinderInfo(CRAPO,"TEXT ttxt")
D'autres possibilités s'offraient à nous : "ttro
ttxt" permettait la création d'un fichier texte verrouillé
comme on en voit sur les CD des magazines, "pref CrPo" associait
au fichier l'icône d'un fichier de préférences
et lui donnait CrPo (?) comme créateur...
Continuons. Il convient bien-sûr d'ouvrir ce fichier pour
nous le rendre accessible. Nous choisissons de l'ouvrir en lecture/écriture :
on passe l'argument zéro.
openFile(CRAPO,"Macintosh HD:desktop folder:monfichier",0)
Le fichier est ouvert si le nom et le chemin sont corrects. Dans
la pratique on testera le résultat de l'instruction par la
fonction status() voir plus haut.
Les habitués des Xobjets auront décelé la nuance
: L'objet est passé à la méthode comme
argument et non pas la méthode à l'objet comme
jadis. Pour les autres il suffira de se souvenir que l'objet fait
le premier argument de toutes les fonctions. exemple :
writeString(CRAPO,"BONJOUR A TOUS !")
Notre fichier "monfichier" contient désormais la chaîne
de caractères souhaitée. mais avant de le fermer pour
aller l'ouvrir avec un éditeur quelconque, une remarque :
La position courante à l'intérieur du fichier
détermine la position des caractères lus ou ajoutés.
Pour toute manipulation du texte du fichier à l'aide
de l'Xtra, il convient de s'enquérir de cette position courante
:
getPosition(CRAPO)
put the result
-- 14
Nous sommes à la fin de la chaîne. impossible
de lire un quelconque caractère sans revenir en arrière
:
setPosition(CRAPO,3)
Dès lors :
readChar(CRAPO)
put the result
-- "J"
C'est le suivant qui est lu ! Et si l'on insiste : le suivant toujours.
On doit donc savoir revenir au début d'une chaîne par
setPosition(CRAPO,0) mais également à la fin
de celle-ci. Pour savoir où la chaîne finit :
getLength(CRAPO)
put the result
-- 14
Pour se placer à la fin donc c'est très facile
:
setPosition(CRAPO,getLengh(CRAPO))
writestring(CRAPO," Le CrapoWeb vous salue !")
Enfin, L'ON N'OUBLIERA JAMAIS de fermer un fichier ouvert,
closeFile(CRAPO)
Ni non plus de supprimer l'instance (mais plus en lui passant mDispose
! C'est un Xtra vous dit-on !) :
set CRAPO to 0
Il vous est désormais possible d'ouvrir le fichier, s'il
est de type TEXT, depuis le Finder à l'aide de n'importe
quel éditeur pour lire son contenu. Mais peut-être
préférerez-vous l'ouvrir depuis votre script. Auquel
cas il vous faut recréer une instance de FileIO :
set UNOBJET to new(xtra "fileio")
openfile(UNOBJET, "the eight ball:desktop folder:monfichier",
0)
put error(UNOBJET,status(UNOBJET))
-- "OK"
Si vous souhaitez lire le contenu du fichier ainsi ouvert, pensez
bien à vous placer au début du fichier !
Mais nous vous proposons un jeu plus dangereux :
delete(UNOBJET)
Il n'y a plus de fichier et aucune demande de confirmation !
Enfin il convient de disposer de l'objet pour nettoyer la mémoire :
set UNOBJET to 0
La dernière version de l'Xtra FileIO peut être téléchargée
sur le
site de macromedia .
<
Sommaire
|
