TABLEAU VERS LISTE DE CHAINES

version 6.0

TABLEAU VERS LISTE DE CHAINES (chaînes; resNum{; resFichier})

La commande TABLEAU VERS LISTE DE CHAINES crée ou réécrit la ressource liste de chaînes ("STR#") dont vous avez passé le numéro dans resNum. Le contenu de la ressource est créé à partir des chaînes de caractères que vous avez passées dans le tableau chaînes. Le tableau peut être de type Alpha ou Texte.

Si la ressource ne peut être ajoutée, la variable système OK prend la valeur 0 (zéro).

Si vous passez un numéro de référence de fichier de ressources valide dans resFichier, la ressource est ajoutée dans ce fichier. Si vous ne passez pas le paramètre resFichier, la ressource est ajoutée au premier des fichiers de la chaîne des fichiers de ressources (c'est-à-dire le dernier fichier de ressources ouvert).

Note : Chaque chaîne d'une ressource liste de chaînes peut contenir jusqu'à 255 caractères.

Conseil : Lorsque vous utilisez des ressources listes de chaînes, limitez-vous à des ressources de 32 Ko maximum et quelques centaines de chaînes par ressource.

Votre base s'appuie sur un même ensemble de polices. Dans la Méthode base Sur fermeture, vous pouvez écrire :

      ` Méthode base Sur fermeture
   Si (<>vbPolicesOK)
      LISTE DES POLICES($atFont)
      $vhResFile:=Ouvrir fichier ressources("EnsemblePolices")
      Si (OK=1)
         TABLEAU VERS LISTE DE CHAINES($atFont;15000;$vhResFile)
         FERMER FICHIER RESSOURCES($vhResFile)
      Fin de si
   Fin de si

Dans la Méthode base Sur ouverture, vous pouvez écrire :

      ` Méthode base Sur ouverture
   <>vbPolicesOK:=Faux
   LISTE DES POLICES($atNewFont)
   Si (Tester chemin acces("EnsemblePolices")#Est un document)
      $vhResFile:=Creer fichier ressources("EnsemblePolices")
   Sinon
      $vhResFile:=Ouvrir fichier ressources("EnsemblePolices")
   Fin de si
   Si (OK=1)
      LISTE DE CHAINES VERS TABLEAU(15000;$atOldFont;$vhResFile)
      Si (OK=1)
         <>vbFontsAreOK:=Vrai
         Boucle($vlElem;1;Taille tableau($atNewFont))
            Si ($atNewFont{$vlElem}#$atOldFont{$vlElem}))
               $vlElem:=MAXLONG
               <>vbPolicesOK:=Faux 
            Fin de si
         Fin de boucle
      Sinon
         <>vbPolicesOK:=Vrai
      Fin de si
      FERMER FICHIER RESSOURCES($vhResFile)
   Fin de si
   Si(Non(<>vbPolicesOK))
      CONFIRMER("Vous n'utilisez pas le même ensemble de polices, OK?")
      Si(OK=1)
         <>vbPolicesOK:=Vrai
      Sinon 
         QUITTER 4D 
      Fin de si 
   Fin de si 

ECRIRE RESSOURCE CHAINE, ECRIRE RESSOURCE TEXTE, LISTE DE CHAINES VERS TABLEAU.

La variable système OK prend la valeur 1 si la ressource a été écrite, sinon elle prend la valeur 0 (zéro).