WR GET WORDS

4D Write v16

WR GET WORDS


WR GET WORDS ( zone ; débutSel ; finSél ; smartCutPaste )

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
débutSel	Entier long	Début du mot à retourner
finSél	Entier long	Fin du mot à retourner
smartCutPaste	Entier	1 si le dernier caractère est un espace, sinon 0

Description

La commande WR LIRE MOTS retourne la position du premier caractère du mot de début de sélection et la position du dernier caractère du mot de fin de sélection dans la zone, et précise si c'est un espace ou pas. Si aucun texte n’est sélectionné, débutMot et finMot renvoient les bornes du mot dans lequel est placé le curseur. Cette commande ne modifie pas la sélection.

Si la sélection commence en milieu de mot (ou entre le dernier caractère d'un mot et l'espace qui le suit immédiatement), débutMot renverra la position du premier caractère de ce mot.

Si la sélection finit en milieu de mot, deux cas peuvent se présenter :

Si le mot est suivi d'un espace, finMot englobera l'espace et smartCutPaste renverra 1.
Si le mot n'est pas suivi d'un espace, finMot englobera le dernier caractère de ce mot et smartCutPaste renverra 0.

Exemple

L’exemple suivant permet de parcourir tous les mots du documents en récupérant leurs bornes.

  `Plaçons le curseur au début de la zone

 WR SET SELECTION(LaZone;0;0)

  `Comptons le nombre de mots contenus dans le document

 NbMots:=WR Count(Zone;wr nb words)

  `Traitons les mots un par un

 For($i;1;NbMots)

  `Récupérons la position du premier et dernier caractère du mot

    WR GET WORDS(Zone;Debut;Pos)

  `Repositionnons-nous après le dernier mot traité

    WR SET SELECTION(LaZone;Pos;Pos)

 End for