version 6.5
WR Remplacer (zone; aChercher; remplacerPar; motEntier; majuscules; toutRemplacer; toutLeDoc) Entier long
Paramètre | Type | Description | |
zone | Entier long | Zone 4D Write | |
aChercher | Alpha | Chaine à chercher | |
remplacerPar | Alpha | Chaîne de remplacement | |
motEntier | Entier | Rechercher le mot entier | |
majuscules | Entier | 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.
Si motEntier est égal à 1, le mot, pour être trouvé, doit être entouré de caractères séparateurs (espaces, caractères de ponctuation ), sinon il peut faire partie d'une chaîne de caractères.
Si majuscules est égal à 1, la recherche tiendra compte des majuscules et ne trouvera pas "Bonjour" si vous lui demandez de chercher "BONJOUR".
Si toutRemplacer est égal à 1, le remplacement portera sur l'ensemble des occurrences du mot à remplacer, sinon elle ne portera que sur la première occurrence.
Si toutLeDoc est égal à 1, la recherche débutera à la position du curseur puis, une fois la fin du document atteinte, se poursuivra du début du texte jusqu'à la position du curseur. Sinon, la recherche s'arrêtera à la fin de document.
WR Remplacer renvoie 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;0;0;1)=1) `On remplace l'espace double par un simple $n:=WR Remplacer(LaZone;AChercher;" ";0;0;1;0) Fin tant que
Référence