TiraAcentos

Retira os caracteres especiais, retornando o texto em maíusculo.

Sintaxe: TiraAcentos (Alfa xTexto, Alfa End xRetorno)

Parâmetros:

Nome Tipo Descrição
xTexto  Alfa Texto original.
xRetorno  Alfa Retorno da função.

Exemplo: 

/* Exibirá mensagem na tela com o texto original e texto convertido */

 

Definir alfa vTexto;
Definir alfa xRetorno;
Definir alfa xQuebra;

RetornaAscII(10, xQuebra);

vTexto = "Teste da Função TiraAcentos" + xQuebra +
"Texto de exemplo para teste da função" + xQuebra +
"Serão retirados os acentos e o texto será convertido para maiúsculo" + xQuebra +
"Esta regra apresentará uma mensagem na tela com o texto original e depois outra com o texto convertido";

TiraAcentos (vTexto, xRetorno);
vTexto = vTexto + "[&Ok]";
xRetorno = xRetorno + "[&Ok]";
Mensagem(Retorna, vTexto);
Mensagem(Retorna, xRetorno);

Utilização: Editor de regras e gerador de relatórios.

Este artigo ajudou você?