Si HyperCard est assez limité dans sa gestion du contenu des disques, il est tout de même capable de rendre certains services bien pratiques. De plus, en utilisant les capacités des commandes externes, il devient possible d’automatiser des tâches qui pourraient prendre beaucoup de temps.
Sans aucune commande externe, il est possible d’ouvrir un fichier et de lire son contenu avec une pile HyperCard :
on mouseUp
global lefichier, lavariable
answer file "Fichier à ouvrir ?"
put it into lefichier
open file lefichier
repeat until it is empty
read from file lefichier for 500
put it after lavariable
end repeat
close file lefichier
end mouseUp
Le script précédent déclare deux variables, demande à l’utilisateur de choisir un fichier, puis ouvre le fichier et copie son contenu, par paquets de 500 caractères, dans une variable. Ensuite, il referme le fichier. À partir de ce moment, il est possible d’utiliser le contenu de la variable et de le modifier comme n’importe quelle suite de caractères. Ensuite, on peut inscrire le contenu de la variable dans le fichier précédent. Si la variable est vide, alors le fichier sera vidé !
open file lefichier
write lavariable to file lefichier
close file lefichier
Avec ces quelques lignes, il devient possible de créer des fichiers texte (de type SimpleText, HTML…) et même des fichiers de tout autre type (JPEG, Mov…) à condition de connaître le format de données correspondant !
Ensuite, pour améliorer encore la gestion des fichiers, il faut utiliser des XCMD (commandes externes) qui permettent de dépasser les limites d’HyperTalk. Parmi les externes indispensables, on trouve GetDir et SetFInfo de Frédéric Rinaldi. Voici par exemple un script qui permet de transformer tous les documents “.htm” d’un dossier en documents GoLive, quel que soit leur format d’origine (Explorer, HomePage…) :
on mouseup
answer folder "Quel dossier voulez-vous modifier ?"
put it into ledossier
put getdir(ledossier,f) into lesfichiers
repeat with i = 1 to number of lines in lesfichiers
if line i of lesfichiers contains “.htm” then SetFInfo ledossier & line i of lesfichiers,"t=" & TEXT,"c=" & GoMk
end if
end repeat
end mouseup
Remarquez la quatrième ligne qui utilise la XCMD GetDir et qui permet de connaitre le contenu d’un dossier. La septième ligne, de son côté, permet de modifier le type et le créateur d’un fichier. Et voilà comment, après avoir créé 500 pages HTML avec une pile HyperCard, on les modifie en documents GoLive qui, d’un simple double-clic, s’ouvrent dans l’éditeur HTML plutôt que dans SimpleText !
Chargement ...
