Como converter texto utf-8
para ANSI
. As palavras que usam "~" e "´" estão saindo erradas, veja por exemplo o uso da palavra "PREPARAÇÃO" que está saindo: "PREPARA 플O" ao gerar arquivo .CSV usando Delphi 2006.
-
1Vai depender do tipo do objeto que você está usando para salvar esses arquivo. Posta o trecho de código que facilita a nossa vida.– Victor TadashiCommented 16/02/2017 às 10:37
-
Essa é a parte que eu passo os dados para serem gravados.. if Tipo = 'C' then Write(ARQTXT, EReplicate(AnsiToUtf8(Texto), ' ', Tamanho)); Write(ARQTXT, ';'); Application.ProcessMessages– Joao Bosco dos Reis BeckerCommented 16/02/2017 às 12:54
-
Resolvido! Basta fazer assim: // Antes de iniciar a gravar no arquivo Write(ARQTXT,#$EF+#$BB+#$BF); //Depois use utf8encode() ao gravar os dados no arquivo... Write(ARQTXT,utf8encode(Texto)); E pronto você tem um arquivo no fotmato UTF-8.– Joao Bosco dos Reis BeckerCommented 18/02/2017 às 21:20
-
@JoaoBoscodosReisBecker se consegui ajudar com a minha resposta, pode aceitar a resposta clicando no ✔ no lado esquerdo da mesma. Se necessitar de alguma mais ajuda avise.– TmcCommented 28/09/2017 às 14:16
Adicione um comentário
|
1 Resposta
Tente utilizar o seguinte código, segundo a resposta dada a esta pergunta no StackOverflow o problema foi resolvido usando a função interna do Delphi UTF8toAnsi
e mais uma função que postei abaixo, utilizando a versão Delphi 2010.
function TFormMain.convertir_utf8_ansi(const Source: string):string;
var
Iterator, SourceLength, FChar, NChar: Integer;
begin
Result := '';
Iterator := 0;
SourceLength := Length(Source);
while Iterator < SourceLength do
begin
Inc(Iterator);
FChar := Ord(Source[Iterator]);
if FChar >= $80 then
begin
Inc(Iterator);
if Iterator > SourceLength then break;
FChar := FChar and $3F;
if (FChar and $20) <> 0 then
begin
FChar := FChar and $1F;
NChar := Ord(Source[Iterator]);
if (NChar and $C0) <> $80 then break;
FChar := (FChar shl 6) or (NChar and $3F);
Inc(Iterator);
if Iterator > SourceLength then break;
end;
NChar := Ord(Source[Iterator]);
if (NChar and $C0) <> $80 then break;
Result := Result + WideChar((FChar shl 6) or (NChar and $3F));
end
else
Result := Result + WideChar(FChar);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var source, result: string;
begin
source := 'PREPARAÇÃO';
result := Utf8toAnsi(convertir_utf8_ansi(source));
end;
-
1Embora este link possa responder à pergunta, é melhor incluir as partes essenciais da resposta aqui e fornecer o link para referência. As respostas apenas por link podem ser invalidadas se a página com o link for alterada. - Da Revisão Commented 29/08/2017 às 14:25
-
1@UzumakiArtanis tentei pormenorizar mais a informação, espero ter conseguido melhorar a resposta.– TmcCommented 29/08/2017 às 14:35
-
1esse código postado aqui, não é o que está na pergunta no S.O. em ingles como o código que não funciona????– jsbuenoCommented 28/04/2019 às 15:10