Re: [delphi-br] Exportação TXT

Listas Minerva Thu, 02 Feb 2006 16:45:44 -0800

Use a procedure abaixo, onde os parâmetros são:

Dataset: o dataset a ser exportado (ele deve estar aberto);
Arquivo: o caminho (inclusive com o nome) do arquivo;
Separador: o caracter quer será usado como separador entre os campos 
(aconselho usar ';');


Exemplo: GeraTexto(Query1, 'C:\arquivo.txt', ';')

procedure GeraTexto(Dataset: TDataset; Arquivo: string; Separador: Char);
  var intC1, intC2: Integer;
      strLista: TStringList;
      strLinha: string;
begin

  try
    Dataset.DisableControls;
    Dataset.First;
    strLista := TStringList.Create;
    strLinha := EmptyStr;

    //Cria a primeira linha com os nomes das colunas
    for intC1 := 0 to Dataset.Fields.Count - 1 do
      if Dataset.Fields[intC1].Visible = True then
        begin
          if intC1 < Dataset.Fields.Count - 1 then
            strLinha := strLinha + Dataset.Fields[intC1].DisplayLabel + 
Separador
          else
            strLinha := strLinha + Dataset.Fields[intC1].DisplayLabel;
        end;

    strLista.Add(strLinha);
    strLinha := EmptyStr;

    for intC1 := 1 to Dataset.RecordCount do
      begin
        for intC2 := 0 to Dataset.Fields.Count - 1 do
          if  Dataset.Fields[intC2].Visible = True then
            begin
              if intC2 < Dataset.Fields.Count - 1 then
                strLinha := strLinha + Dataset.Fields[intC2].AsString + 
Separador
              else
                strLinha := strLinha + Dataset.Fields[intC2].AsString;
            end;

        strLista.Add(strLinha);
        strLinha := EmptyStr;
        Dataset.Next;
      end;

    strLista.SaveToFile(Arquivo);
    strLista.Free;
    Dataset.EnableControls;
  except
    on Erro: Exception do
      begin
        strLista.Free;
        Dataset.EnableControls;
        raise Exception.Create(Erro.Message);
      end;
  end;

end;




----- Original Message ----- 
From: "Dir" <[EMAIL PROTECTED]>
To: "grupo2" <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, January 31, 2006 11:06 AM
Subject: [delphi-br] Exportação TXT





Pessoal preciso exportar dados de uma consulta(consulta esta pronta) para um 
arquivo .txt, mas como nunca fiz isso, alguém poderia me dar uma dica.

Cadanos

[As partes desta mensagem que não continham texto foram removidas]





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos











-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Re: [delphi-br] Exportação TXT

Responder a