4D v12.4

TABLEAU VERS LISTE DE CHAINES

Accueil

 
4D v12.4
TABLEAU VERS LISTE DE CHAINES

 

TABLEAU VERS LISTE DE CHAINES 


 

TABLEAU VERS LISTE DE CHAINES ( tabChaînes ; resNum {; resFichier} ) 
Paramètre Type   Description
tabChaînes  Tableau chaîne in Tableau alpha ou texte (nouveau contenu de la ressource STR#)
resNum  Entier long in Numéro de ressource
resFichier  RefDoc in Numéro de référence de fichier de ressources ou fichier de ressources courant si ce paramètre est omis

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

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

 
PROPRIÉTÉS 

Produit : 4D
Thème : Ressources
Numéro : 512
Nom intl. : ARRAY TO STRING LIST

Cette commande modifie la variable système OK

 
HISTORIQUE 

Créé : 4D v6

 
VOIR AUSSI  

ECRIRE RESSOURCE CHAINE
ECRIRE RESSOURCE TEXTE
LISTE DE CHAINES VERS TABLEAU