4D Doc Center : WR Remplacer

4D Write v14

WR Remplacer


WR Remplacer ( zone ; aChercher ; remplacerPar ; motEntier ; majuscules ; toutRemplacer ; toutLeDoc ) -> Résultat

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
aChercher	Chaîne	Chaine à chercher
remplacerPar	Chaîne	Chaîne de remplacement
motEntier	Entier	0=partie de mot 1=rechercher le mot entier
majuscules	Entier	0=ignorer majuscule 1=tenir compte des majuscules
toutRemplacer	Entier	0=remplacer suivant 1=tout remplacer
toutLeDoc	Entier	0=chercher après le curseur 1=chercher dans tout le document
Résultat	Entier long	Nombre de remplacements effectués

Description

La commande WR Remplacer est une fonction permettant de simuler en partie le fonctionnement de la commande Remplacer dans le menu Edition de 4D Write.

Vous pouvez passer dans le paramètre motEntier l'une des constantes suivantes, placées dans le thème WR Paramètres :

Constante	Type	Valeur	Commentaire
wr partie de mot	Entier long	0	Le mot peut faire partie d’une chaîne de caractères.
wr mot entier	Entier long	1	Pour être trouvé, le mot doit être entouré de caractères séparateurs (espaces, caractères de ponctuation, etc.).

Vous pouvez passer dans le paramètre majuscules l'une des constantes suivantes, placées dans le thème WR Paramètres :

Constante	Type	Valeur	Commentaire
wr ignorer majuscules	Entier long	0	La recherche ne tiendra pas compte des majuscules et trouvera “Bonjour”, “Bonjour“, “BONJOUR“... si vous cherchez “BONJOUR”.
wr tenir compte des majuscules	Entier long	1	La recherche tiendra compte des majuscules et ne trouvera pas “Bonjour” si vous cherchez “BONJOUR”.

Vous pouvez passer dans le paramètre toutRemplacer l'une des constantes suivantes, placées dans le thème WR Paramètres :

Constante	Type	Valeur	Commentaire
wr remplacer suivant	Entier long	0	Le remplacement portera uniquement sur la première occurrence du mot à remplacer.
wr tout remplacer	Entier long	1	Le remplacement portera sur l’ensemble des occurrences.

Vous pouvez passer dans le paramètre toutLeDoc l'une des constantes suivantes, placées dans le thème WR Paramètres :

Constante	Type	Valeur	Commentaire
wr du curseur à la fin	Entier long	0	La recherche commence à la position du curseur puis s'arrêtera en fin de document.
wr tout le document	Entier long	1	La recherche commence à la position du curseur puis se poursuivra du début du texte à la position du curseur.

WR Remplacer retourne le nombre d’occurrences remplacées.

Exemple

Vous souhaitez détecter et supprimer tous les espaces répétés superflus dans votre document :

  `On affecte la variable qui va servir pour la recherche et qui contiendra deux espaces consécutifs

 AChercher:=" "

  `Tant que l'on trouve des occurences

 Tant que(WR Chercher(LaZone;AChercher;wr partie de mot;wr ignorer majuscules;wr tout le document)=1)

  `On remplace l'espace double par un simple

    $n:=WR Remplacer(LaZone;AChercher;" ";wr partie de mot;wr ignorer majuscules;wr tout remplacer;wr tout le document)

 Fin tant que