Debug #9 - Função strTran() - Advpl

Fala galera!

Hoje falaremos um pouco sobre a função strTran(). Essa função é muito útil para quem precisa alterar uma string, onde precisa retirar ou substituir caracteres específicos.

A função possui 5 parâmetros, porém somente 2 são obrigatórios. Vamos analisá-lo:

TDN Totvs - StrTran

O retorno é uma nova string com os caracteres substituídos. Antes de utilizar, é preciso atentar-se a algumas observações:

• a função é case sensitive;
• se o campo cReplace não for informado, os caracteres ficarão vazios;
• se omitido o campo nStart, o valor padrão (1) será utilizado;
• se omitido o campo nCount, todos os caracteres encontrados serão substituídos.

Veja um exemplo:

user function strTran
      
private cString := "123 123 123 123"
private cNovaString := ""                      

cNovaString := strTran(cString, "1"  , "4")

msgInfo("String original: " + cString + CHR(10) + CHR(13) +;
  "String nova: "+ cNovaString)

return           

E abaixo está o resultado:

Simples, não? Espero que seja útil esta dica.

Fonte: TDN Totvs

Até mais!

;)