edFile.Text = nome do arquivo a ser exportado
dsFonte = um DataSource que recebe a table a ser exportada.
AssignFile(ArqImp, edFile.Text);
Try
Rewrite( ArqImp );
dsFonte.DataSet.First;
While not dsFonte.DataSet.Eof do
Begin
sLinha:= '';
For campo:= 0 To lstCampos.Count - 1 do
If lstCampos.Checked[campo] then
sLinha:= sLinha + '"' +
dsFonte.DataSet.FieldByName(stNomeCampo[campo]).asString + '";';
WriteLn( ArqImp, sLinha );
dsFonte.DataSet.Next;
end;
Finally
CloseFile( ArqImp );
end;
T+
Júlio Abdala
Listas Minerva <[EMAIL PROTECTED]> escreveu:
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 >>>>>
Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE
---------------------------------
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 Termos do Serviço do
Yahoo!.
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
