Crystal Reports 2011 (Função sem acento)

[evscardoso]

A todos.

Bom dia.

Estou tentando criar uma função no Crystal Reports 2011 para excluir acentos existentes na palavras, como por exemplo São Paulo deve ficar são Paulo sem o ~ . Só que não estou tendo sucesso. Se alguém tiver isto pronto ou poder me ajudar como fazer eu agredeço desde já.

segue algo que tentei criar mas sem sucesso:

Function (stringvar Texto);
local stringvar QTexto;
local stringvar Final;
local numbervar x;
QTexto := Texto;

For x:=1 To Len(QTexto) do
(Select Mid(QTexto, x, 1)
Case "ó", "õ", "ô", "Ô", "Ó“","Õ"
:Mid(QTexto, x, 1) = "O");
x:=x+1;

QTexto

Obrigado.

Evandro

Editado Novembro 4, 2013 por evscardoso

[Flechaus]

Olá evscardoso, tudo bem?

Existe a função replace, e seria melhor você escrever esta função com sintaxe do basic.

O texto que entra na função, torne ele todo em minúsculo antes de processá-lo, assim não precisará se preocupar com letras maiúsculas e minúsculas.

Um abraço.