F�rum Exportar um dataset para CSV #247461

19/08/2004

Estou precisando exportar um dataset para um arquivo texto tipo CSV. Normalmente, uso para isso o componente PgCSV que funciona bem. S� que dessa vez preciso incluir o nome dos campos no cabe�alho do arquivo texto, j� que o mesmo ser� usado como origem de dados de um documento de mesclagem no Word. Andei olhando outros componentes, mas nenhum me agradou (um n�o instalou, outros s� funcionam com BDE, etc). Alguma sugest�o de como posso fazer isso? Talvez quem conhe�a o componente PgCSV possa me sugerir alguma altera��o no mesmo para habilitar essa op��o, j� que ele � freeware e com fontes. � poss�vel peg�-lo num desses sites [url]http://delphi.icm.edu.pl/[/url] ou [url]http://www.torry.net/[/url]. Quem puder me ajudar, ficarei grata, pois tenho urg�ncia nisso.

Gandalf.nho

Curtir t�pico

+ 0

Responder

Post mais votado

20/08/2004

Colega,

Abaixo, montei um algoritmo para gerar um arquivo texto usando como separador o �;� e cabe�alho, testei com DBDemos (customer.db) e importei normalmente no Excel. Basta refinar para incorporar � sua necessidade:

var Arquivo: TextFile;
    nX, nY: SmallInt;
    Cabecalho: TStringLIst;
    LinhaDados: String;
begin

  Cabecalho := TStringList.Create;

  AssignFile(Arquivo, �c:\temp.txt�);
  ReWrite(Arquivo);
  Table1.Open;

  Cabecalho := Table1.FieldList;
  nY := Cabecalho.Count-1;

  LinhaDados := ��;
  For nX := 0 to nY do
  begin
    LinhaDados := LinhaDados + Cabecalho.Strings[nX] + �;�;
  end;

  WriteLn(Arquivo, LinhaDados);

  nY := Table1.FieldCount-1;

  while not table1.Eof do
  begin

    LinhaDados := ��;
    For nX := 0 to nY do
    begin
      LinhaDados := LinhaDados + Table1.FieldByName(Cabecalho.Strings[nX]).AsString+�;�;
    end;
    WriteLn(Arquivo, LinhaDados);

    table1.Next;
  end;

  Cabecalho.Free;
  CloseFile(Arquivo)
end;

Aroldo Zanela

Responder

Gostei + 1

Mais Posts

19/08/2004

Uildenei

uma sugestao eh vc pegar o arquivo gerado e inserir uma linha de cabecalho com os nome dos campos jah que sao separados por virgula

com um assignfile ou carga pra dentro de um memo ou algo parecido ...

Uildenei

Responder

Gostei + 0

25/08/2004

Gandalf.nho

Obrigada pelas dicas

Responder

Gostei + 0

02/09/2015

Robson Morais

muito util.....

Responder

Gostei + 0