WR SELECT

4D Write v15

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
wr sélectionner caractères	Entier long	0
wr sélectionner expression	Entier long	1
wr sélectionner paragraphes	Entier long	2
wr sélectionner règle	Entier long	3
wr sélectionner image	Entier long	4
wr sélectionner style	Entier long	5
wr sélectionner mot	Entier long	6
wr sélectionner saut de page	Entier long	7
wr sélectionner saut de colonne	Entier long	8
wr sélectionner césure	Entier long	9
wr sélectionner numéro de page	Entier long	10
wr sélectionner date et heure	Entier long	11
wr sélectionner lien hypertexte	Entier long	12
wr sélectionner expression HTML	Entier long	13
wr sélectionner expression RTF	Entier long	14

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