Fórum Criar txt atravez de uma tabela. Como???? #179987

Olá,

mande-me um e-mail, vou te enviar uma rotina para pegar txt para a base de dados. Neste caso use a rotina de forma inversa para gerar o txt.


Atenciosamente


Silvio Guedes.
silvio.guedes@ig.com.br

Tem mais do que precisa, mas basicamente pega um arquivo pelo OpenDialog1.Filename, e depois abre fomatando para 300 bytes de length de registro par os campos Arq, cod, desc, quant, preco e lixo;


Arq : TextFile;
cod: string[13];
desc: string[40];
quant: string[6];
preco: string[10];
lixo: string[231];
excel: Variant;
Calc2: String;
Calc3: Real;
Calc,i: Integer;
VerifyInTable,VerifyInArq,nomearq: string;
Label Jump;

begin
Memo1.Clear;
excel:=CreateOleObject(´Excel.Application´);
excel.Workbooks.add(1);
Calc:=0;

if OpenDialog1.Execute then
begin
nomearq:=OpenDialog1.Filename;
Label1.Caption:=ExtractFileName(nomearq);
AssignFile(Arq, OpenDialog1.Filename);
Reset(Arq);
while not Eof(Arq) do
begin
Calc3:=Calc3+1;
Read(Arq, cod, desc, quant, preco, lixo);
if pos(´/´, cod) <> 0 then // achou registro do outro tipo
break;
end;
Calc3:=int((100/Calc3));
Calc2:=FloatToStr(Calc3);
Calc:=StrToInt(Calc2);
Reset(Arq);
i := 1;
while not Eof(Arq) do
begin
Read(Arq, cod, desc, quant, preco, lixo);
if pos(´/´, cod) <> 0 then // achou registro do outro tipo