Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Problema com carateres após leitura CSV


Mario Lopes

Pergunta

Viva

Uso o seguinte código para ler um ficheiro CSV .

procedure TForm1.Button1Click(Sender: TObject);
var
  Linhas, Colunas:TStringList;
  i:integer;
 begin
 Linhas := TStringList.Create;
 Colunas := TStringList.Create;
  try
   Linhas.LoadFromFile('C:\cheirabem\bbanimais\animais.csv'); //Carregando arquivo
   for i := 1 to 10 do
   begin
       Colunas.text := StringReplace(Linhas.Strings[i],';',#13,[rfReplaceAll]);
       edit1.Text:= Colunas.Strings[1];
   end;

  finally
   Linhas.Free;
   Colunas.Free;
 end;
end;

O problema é que os carateres acentuados não me aparecem em condições. Alguém ajuda?

Obrigado

Mário Lopes

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

 

Posso deixar um link para descarregar o ficheiro, é fornecido por uma empresa com loja online.

https://programamos.pt/animais.csv

Já agora não sei o que se passa com este fórum porque que tenho sempre que pedir link para colocar nova password, o forum não aceita o meu Login. O facto é que não me recordo muito bem qual o meu username, mas não tenho como saber no fórum (a opção meu perfil nada me indica sobre isso).

 

Link para o comentário
Compartilhar em outros sites

  • 0

Veja esta modificação no seu código

procedure TForm1.Button1Click(Sender: TObject);
var
  Linhas, Colunas:TStringList;
  i:integer;
begin
 Linhas := TStringList.Create;
 Colunas := TStringList.Create;
  try
   Linhas.LoadFromFile('C:\animais.csv'); //Carregando arquivo
   for i := 1 to 10 do
   begin
       Colunas.text := StringReplace(Linhas.Strings[i],';',#13,[rfReplaceAll]);
       edit1.Text:= Utf8toAnsi(Colunas.Strings[1]);
   end;

  finally
   Linhas.Free;
   Colunas.Free;
  end;
end;

Leitura do Texto:

Tapete Refrigerante para Animais de Estimação InnovaGoods (90 x 50 cm)

Texto convertido:

Tapete Refrigerante para Animais de Estimação InnovaGoods (90 x 50 cm)

Leitura de 10 Linhas do arquivo

Raspador para Gatos e Arco Massageador InnovaGoods
Escova de Remover Pelos para Aspirador InnovaGoods
Trela para Cães Mãos Livres InnovaGoods
Bebedouro para Animais My Pet Frosty Bowl
Escova com mangueira para animais My Pet Brush
Aspirador de Pêlo de Animais Pet Vacuum
Frisbee com Luz LED Colorida InnovaGoods
Tapete para Animais de Estimação InnovaGoods 85 x 65 cm
Piscina para Animais de Estimação InnovaGoods
Tapete Refrigerante para Animais de Estimação InnovaGoods (90 x 50 cm)

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...