4D Doc Center : WR Replace

4D Write v14

WR Replace


WR Replace ( area ; aBuscar ; substPor ; palavraComp ; maius ; substTudo ; todoODoc ) -> Resultado

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
aBuscar	cadeia	Cadeia a buscar
substPor	cadeia	Cadeia de substituição
palavraComp	Inteiro	0=parte da palavra 1=toda a palavra
maius	Inteiro	0=ignorar maiúsculas 1=ter em, conta maiúsculas
substTudo	Inteiro	0=substituir seguinte 1=substituir tudo
todoODoc	Inteiro	0=buscar desde a seleção 1=buscar todo o documento
Resultado	Inteiro longo	Número de substituições realizadas

Descrição

O comando WR Replace lhe permite simular em parte o funcionamento do comando Replace no menu Edição de 4D Write.

No parâmetro palavraComp, passe uma das seguintes constantes do tema WR Parameters:

Constante	Tipo	Valor
wr partial match	Inteiro longo	0
wr whole word	Inteiro longo	1

No parâmetro maius, passe uma das seguintes constantes do tema WR Parameters:

Constante	Tipo	Valor
wr ignore uppercase	Inteiro longo	0
wr case sensitive	Inteiro longo	1

No parâmetro substTudo, passe uma das seguintes constantes do tema WR Parameters:

Constante	Tipo	Valor
wr replace next	Inteiro longo	0
wr replace all	Inteiro longo	1

No parâmetro todoODoc, passe uma das seguintes constantes do tema WR Parameters:

Constante	Tipo	Valor
wr after insertion point	Inteiro longo	0
wr whole document	Inteiro longo	1

WR Replace devolve o número de ocorrência substituídas.

Exemplo

Você quer eliminar todos os espaços repetidos não necessários em seu documento:

  `Atribuir uma variável que contém dois espaços consecutivos

 ToFind:=" "

  `Enquanto se encontram as ocorrências

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

  `Substituímos o dobro espaço por uma simples

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

 End while