log0800_replace()

Troca da função log0800_replace() pela função nativa da linguagem 4GL replace().

DEFINE l_texto CHAR(200)
 
LET l_texto = "exemplo substituição texto"
 
CALL conout("TEXTO ANTES DO REPLACE: "||l_texto CLIPPED)
 
LET l_texto = log0800_replace(l_texto,"texto","TEXTO EM CAIXA ALTA")

CALL conout("TEXTO DEPOIS DO REPLACE: "||l_texto CLIPPED)

DEFINE l_texto CHAR(200)

LET l_texto = "exemplo substituição texto"

CALL conout("TEXTO ANTES DO REPLACE: "||l_texto CLIPPED)

CALL replace(l_texto,"texto","TEXTO EM CAIXA ALTA")

CALL conout("TEXTO DEPOIS DO REPLACE: "||l_texto CLIPPED)

Observações

A função 4GL replace(), faz o ajuste no conteúdo da variável passada no 1º parâmetro, pois é um parâmetro do tipo "Referência" e o retorno desta função será a quantidade de ocorrências encontradas e ajustadas no conteúdo do 1º parâmetro.

Os parâmetros da função 4GL replace() são:

     1 - variável com o texto a ter seu conteúdo ajustado

     2 - texto a ser substituído no conteúdo da variável 

     3 - novo texto a ser incluído no conteúdo da variável em substituição ao texto do parâmetro 2.

     4 - (Opcional) Posição inicial de pesquisa no conteúdo da variável do parâmetro 1. Quando não informado, irá assumir que a substituição deverá ocorrer a partir da posição 1.

     5 - (Opcional) Posição final de pesquisa no conteúdo da variável do parâmetro 1. Quando não informado, irá assumir que a substituição deverá ocorrer até o final do texto.

O retorno desta função 4GL replace é: 

    1 - Quantidade total de substituições realizadas.

Os parâmetros opcionais, não devem ser passados como NULL, ou seja, apenas não devem ser informados.

Exemplo:

      LET l_number_of_replaces = replace(l_texto,'antes','depois')

Veja também

STRING_replace