4D v12.4TABLEAU 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 | |||||
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
La variable système OK prend la valeur 1 si la ressource a été écrite, sinon elle prend la valeur 0 (zéro).
Produit : 4D
Thème : Ressources
Numéro :
512
Nom intl. : ARRAY TO STRING LIST
Créé : 4D v6
ECRIRE RESSOURCE CHAINE
ECRIRE RESSOURCE TEXTE
LISTE DE CHAINES VERS TABLEAU