WR SELECT

4D Write v16

WR SELECT


WR SELECT ( zone ; type ; début ; fin )

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
type	Entier	Critère de sélection
début	Entier long	Valeur de sélection
fin	Entier long	Fin de sélection (optionnel avec certains sélecteurs)

Description

La commande WR SELECT permet de délimiter une sélection en fonction des valeurs indiquées par sélecteur, début et fin. WR SELECT ne change pas la sélection courante si la valeur recherchée n’existe pas.

Définissez le paramètre sélecteur à l'aide d'une des constantes suivantes, placées dans le thème "WR Sélectionner type" :

Constante	Type	Valeur	Comment
wr select characters	Entier long	0	Sélectionne les caractères compris entre début et fin. Dans ce cas, la commande équivaut à WR FIXER SELECTION.
wr select expression	Entier long	1	Sélectionne la nième référence du document, n étant défini par début. Dans ce cas, le dernier paramètre doit être omis.
wr select paragraphs	Entier long	2	Sélectionne le(s) paragraphe(s) compris entre début et fin, par exemple du 8e au 20e paragraphe.
wr select ruler	Entier long	3	(Attributs de paragraphe) Sélectionne le(s) paragraphe(s) qui utilise(nt) la nième règle en partant du début du texte. On entend par nième règle le décompte des différentes règles utilisées depuis le début du texte, la règle étant constituée des valeurs d'alignement, d'interlignage, de marges, d'encadrements et de tabulations du paragraphe. Dans ce cas, fin doit être omis.
wr select picture	Entier long	4	Sélectionne la nième image à partir du début du document, n étant défini par début. Dans ce cas, fin doit être omis.
wr select style	Entier long	5	(Attributs de caractère) Sélectionne le mot ou le groupe de mots utilisant le nième style en partant du début du texte. Dans ce cas, fin doit être omis.
wr select word	Entier long	6	Sélectionne le mot contenant le curseur. Dans ce cas, omettez les deux derniers paramètres.
wr select page break	Entier long	7	Sélectionne le nième saut de page du document, n étant défini par début. Dans ce cas, fin doit être omis.
wr select column break	Entier long	8	Sélectionne le nième saut de colonne du document, n étant défini par début. Dans ce cas, fin doit être omis.
wr select hyphen	Entier long	9	Sélectionne la nième césure du document, n étant défini par début. Dans ce cas, fin doit être omis.
wr select page number	Entier long	10	Sélectionne le nième numéro de page du document, n étant défini par début. Dans ce cas, fin doit être omis. La sélection ne porte que sur les numéros de pages insérés dans le corps du texte.
wr select date and time	Entier long	11	Sélectionne la nième date et/ou heure du document, n étant défini par début. Dans ce cas, fin doit être omis. La sélection ne porte que sur les dates ou heures en mise à jour automatique et insérées dans le corps du texte.
wr select hyperlink	Entier long	12	Sélectionne le nième lien hypertexte du document, n étant défini par début. Dans ce cas, fin doit être omis.
wr select HTML expression	Entier long	13	Sélectionne la nième expression HTML du document, n étant défini par début. Dans ce cas, fin doit être omis.
wr select RTF expression	Entier long	14	Sélectionne la nième expression RTF du document, n étant défini par début. Dans ce cas, fin doit être omis.

Exemple 1

L’exemple suivant permet d’effectuer des opérations différentes en fonction de la présence ou non d’un saut de page :

  `Fixons la sélection à une position arbitraire

 WR SET SELECTION(LaZone;0;0)

  `Essayons de sélectionner le premier saut de page

 WR SELECT(LaZone;wr select page break;1)

  `Récupérons les bornes de la nouvelle sélection

 WR GET SELECTION(LaZone;$vlDébut;$vlFin)

 If(($vlDébut=0)&($vlFin=0))

  `Il n’y a pas de saut de page

 Else

  `Faire quelque chose avec le saut de page

 End if

Exemple 2

Vous désirez sélectionner les références de zone et les passer dans un style reconnaissable. Dans la méthode objet d’un bouton, écrivez :

 NbObjets:=WR Count(LaZone;4)

  `Comptons le nombre de références

 For(i;1;NbObjets)

    WR SELECT(LaZone;wr select expression;i)

  `Sélectionnons chaque référence

    WR GET REFERENCE(LaZone;NoTable;NoChamp;vNom;vType)

    WR SET TEXT PROPERTY(LaZone;wr bold;1)

    WR SET TEXT PROPERTY(LaZone;wr text color;wr blue)

  `Passons la sélection en Gras et en Bleu

 End for

Voir aussi

WR Count
WR Replace
WR SELECT PICTURE IN PAGE