TABLEAU VERS LISTE DE CHAINES

4D - Documentation   Français   English   German   Español   Japanese   4D v11 SQL, Commandes par thèmes   4D v11 SQL, Liste alphabétique des commandes   4D v11 SQL, Constantes par thèmes   Retour   Précédent   Suivant

version 6.0


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

ParamètreTypeDescription
chaînesTableau alphaTableau alpha ou texte
(nouveau contenu de la ressource STR#)
resNumNumériqueNuméro de ressource
resFichierDocRefNuméro de référence de fichier de ressources ou
fichier de ressources courant si ce paramètre
est omis

Description

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.

Exemple

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 

Référence

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

Variables et ensembles système

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


4D - Documentation   Français   English   German   Español   Japanese   4D v11 SQL, Commandes par thèmes   4D v11 SQL, Liste alphabétique des commandes   4D v11 SQL, Constantes par thèmes   Retour   Précédent   Suivant