LISTE TYPES RESSOURCE

version 6.0

LISTE TYPES RESSOURCE (resTypes{; resFichier})

La commande LISTE TYPES RESSOURCE remplit le tableau resTypes avec les types des ressources présentes dans le(s) fichier(s) de resources ouvert(s).

Si vous passez un numéro de référence de fichier de ressources valide dans le paramètre optionnel resFichier, seules les ressources présentes dans ce fichier seront listées. Si vous ne passez pas le paramètre resFichier, toutes les ressources de tous les fichiers de ressources ouverts seront listées.

Si vous ne pré-déclarez pas le tableau resTypes avant d'appeler LISTE TYPES RESSOURCE, la commande créera par défaut un tableau de type Texte. Si vous pré-déclarez le tableau, vous pouvez lui attribuer le type Alpha ou Texte.

Après l'appel, vous pouvez tester le nombre de types de ressources différents qui ont été trouvés en appliquant la commande Taille tableau au tableau resTypes.

(1) L'exemple suivant remplit le tableau atResType avec les types de ressources présents dans tous les fichiers de ressource ouverts :

   LISTE TYPES RESSOURCE(atResType)

(2) L'exemple suivant vous indique si le fichier de structure Mac OS que vous utilisez contient des plug-ins 4D "ancien modèle", qui devront être mis à jour si vous voulez exploiter la base sous Windows :

   $vhResFile:=Ouvrir fichier ressources(Fichier structure)
   LISTE TYPES RESSOURCE(atResType;$vhResFile)
   Si (Chercher dans tableau(atResType;"4DEX")>0)
        ALERTE("Cette base contient des plug-ins 4D basés sur l'ancien système."+(Caractere(13)*2)+
                        "Vous devrez les mettre à jour pour pouvoir utiliser la base sous Windows.")
   Fin de si 

Note : Le fichier de structure n'est pas le seul fichier dans lequel des plug-ins "ancien modèle" ont pu être installés. La base peut également être associée à un fichier "Routines Externes" ou "Proc.Ext".

(3) La méthode projet suivante retourne le nombre de ressources présentes dans un fichier de ressources :

      ` Méthode projet Compter ressources
      ` Compter ressources ( Heure ) -> Entier long
      ` Compter ressources ( DocRef ) -> Nombre de ressources

   C_ENTIER LONG($0)
   C_HEURE($1)

   $0:=0
   LISTE TYPES RESSOURCE($atResType;$1)
   Boucle ($vlElem;1;Taille tableau($atResType))
      LISTE RESSOURCES($atResType{$vlElem};$alResID;$atResName;$1)
      $0:=$0+Taille tableau($alResID)
   Fin de boucle 

Une fois que cette méthode est implémentée dans votre base, vous pouvez écrire par exemple :

   $vhResFile:=Ouvrir fichier ressources("")
   Si (OK=1)
      ALERTE("Le fichier ""+Document+"" contient "+Chaine(Compter ressources ($vhResFile))+
                                             " ressource(s).")
      FERMER FICHIER RESSOURCES($vhResFile)
   Fin de si 

LISTE RESSOURCES.