Exportar para TXT.

Question

Preciso gerar um txt com os registros de uma tabela, de modo que no arquivo texto os campos sejam gravados sempre na mesma posi��o, independente do tamanho.Por exemplo: o campo cod_cli tem tamanho de ...

Alex Maia · Answer

Qual banco de dados vc usa?...

Paulo_amorim · Answer

Ol�Para os campos Inteiros, pode-se utilizar[code:1:740bfe5d83]FormatFloat (�0000000000�, Query.FieldByName(�campo�).AsInteger);[/code:1:740bfe5d83]-sendo a quantidade de �0� o tamanho do campo, e o FieldByName qual o campo a ser tratadoPara os Campos String, pode-se fazer[code:1:740bfe5d83]s := Query.FieldByName(�campo�).AsString;while not Length(s) = MeuTamanho dos := s + � �;[/code:1:740bfe5d83]- sendo s sua vari�vel a ser tratada, e MeuTamanho o tamanho do campoDepois disso, grave no arquvio...Espero que ajudeAt�+...

Iurifernandes · Answer

rap�, eu to usando o seguinte c�digo:

begin
//PEDIDO
inicial:= DateToStr(eInicial.Date);
final := DateToStr(eFinal.Date);
AssignFile (F, Arquivo_Ped );
Rewrite(f);
Query1.Close;
Query1.ParamByName(�inicial�).AsDateTime:= StrToDate(inicial);
Query1.ParamByName(�final�).AsDateTime:= StrToDate(final);
Query1.Open;
if not Query1.Eof then
begin
Query1.first;
while not query1.Eof do
begin
Writeln (F,Query1COD_PED.asstring);//+�,�);
Writeln (F,Query1PDCOD_REP.asstring);//+�,�);+�,�);
Writeln (F,query1PDCOD_VEND.asstring);//+�,�);+�,�);
Writeln (F,Query1PDCOD_CLI.asstring);//+�,�);+�,�);
Writeln (F,Query1PDCOD_TRP1.asstring);//+�,�);+�,�);
Writeln (F,Query1PDCOD_TRP2.asstring);//+�,�);+�,�);
Writeln (F,Query1PDCOD_TRP3.asstring);//+�,�);+�,�);
Writeln (F,Query1DTEMISS_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1DTFATURA_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1ENDCOB_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1ORDCOM_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1SUFRAMA_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1CONPGT_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1INFO_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1FRETE_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1OBS_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1VLTOT_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1QTDITM_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1PESO_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1NF_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1COMTOT_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1COMVEND_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1BAIXA_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1STATUS_PED.asstring);//+�,�);+�,�);
Writeln (F,Query1DTSTATUS_PED.asstring);//+�,�);+�,�);
writeln (F, �***�);
query1.Next;
end;
CloseFile(F);
end;

espero que ajude!

Rmc1701e · Answer

Voc� pode usar um listbox junto com a fun��o [b:b54479bd08]format[/b:b54479bd08] para gerar o arquivo.

listbox1.Items.Add(format(��5.5d�-40.40s�13.2f�,
                           [fieldbyname(�Codigo�).AsInteger,
                            fieldbyname(�VrProd�).AsString,
                            fieldbyname(�Nome�).AsFloat
                           ]))

Depois o m�todo Items.SavetoFile para salva-lo em disco

listbox1.Items.SaveToFile(�C:\Temp\Arquivo.txt�)

Se voc� n�o quiser inserir um componente ListBox no formul�rio, uma vari�vel do tipo TStringList tamb�m funciona.

F�rum Exportar para TXT. #235648