4D Doc Center : TABLEAU VERS LISTE DE CHAINES

4D v12.4

TABLEAU VERS LISTE DE CHAINES


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

Paramètre	Type	Description
tabChaînes	Tableau chaîne	Tableau alpha ou texte (nouveau contenu de la ressource STR#)
resNum	Entier long	Numéro de ressource
resFichier	RefDoc	Numé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

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).