4D Doc Center : WR Replace

4D Write v14

WR Replace


WR Replace ( area ; aBuscar ; rempPor ; palabraComp ; mayus ; rempTodo ; todoElDoc ) -> Resultado

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
aBuscar	Cadena	Cadena a buscar
rempPor	Cadena	Cadena de remplazo
palabraComp	Entero	0=parte de la palabra 1=toda la palabra
mayus	Entero	0=ignorar mayúsculas 1=tener en cuenta mayúsculas
rempTodo	Entero	0=remplazar siguiente 1=remplazar todo
todoElDoc	Entero	0=buscar desde la selección 1=buscar todo el documento
Resultado	Entero largo	Número de remplazos efectuados

Descripción

El comando WR Replace le permite simular en parte el funcionamiento del comando Replace en el menú Edición de 4D Write.

En el parámetro palabraComp, pase una de las siguientes constantes del tema WR Parámetros:

Constante	Tipo	Valor
wr partial match	Entero largo	0
wr whole word	Entero largo	1

En el parámetro mayus, pase una de las siguientes constantes del tema WR Parámetros:

Constante	Tipo	Valor
wr ignore uppercase	Entero largo	0
wr case sensitive	Entero largo	1

En el parámetro rempTodo, pase una de las siguientes constantes del tema WR Parámetros:

Constante	Tipo	Valor
wr replace next	Entero largo	0
wr replace all	Entero largo	1

En el parámetro todoElDoc, pase una de las siguientes constantes del tema WR Parámetros:

Constante	Tipo	Valor
wr after insertion point	Entero largo	0
wr whole document	Entero largo	1

WR Replace devuelve el número de ocurrencias remplazadas.

Ejemplo

Usted quiere eliminar todos los espacios repetidos innecesarios en su documento:

  `Asignar una variable que contiene dos espacios consecutivos

 ToFind:=" "

  `Mientras se encuentran las ocurrencias

 While(WR Find(Area;ToFind;wr partial match;wr ignore uppercase;wr whole document)=1)

  `Remplazamos el doble espacio por una simle

    $n:=WR Replace(Area;ToFind;" ";wr partial match;wr ignore uppercase;wr replace all;wr whole document)

 End while