4D Write v14

WR Replace

Inicio

 
4D Write v14
WR Replace

WR Replace 


 

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

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

 
PROPIEDADES 

Producto: 4D Write
Tema: WR Gestión de texto
Número 89453

 
HISTORIA 

Creado por: 4D Write 6.5

 
VER TAMBIÉN 

WR Find
WR SELECT

 
ARTICLE USAGE

4D Write - Lenguaje ( 4D Write v11.6)
4D Write - Lenguaje ( 4D Write v12)
4D Write - Lenguaje ( 4D Write v14)
4D Write - Lenguaje ( 4D v13)
4D Write - Lenguaje ( 4D Write v14 R2)
4D Write - Lenguaje ( 4D Write v14 R3)
4D Write - Lenguaje ( 4D Write v14 R4)