Fórum arquivo texto #282399

cuscon:currency;
i:integer;
txt : textfile;
entrada : string;
begin
Assignfile(txt,´c:\peesatpe.txt´);//nome do arquivo texto
reset(txt);
while not eoln(txt) do
begin
readln(txt,entrada);
table1.insert;
table1filcod.Value:=copy(entrada,01,02); 01 //posição que inicia seu arquivo texto 02 tamanho do seu campo na tabela.
table1codpec.Value:=copy(entrada,03,22);
table1sitpec.Value:=copy(entrada,25,03);
table1codcla.Value:=copy(entrada,28,22);
table1qtdest.Value:=copy(entrada,50,07);
table1qtdand.Value:=copy(entrada,57,07);
table1qtddef.Value:=copy(entrada,64,07);
table1cusatu.Value:=copy(entrada,71,14);
table1cuscon.value:=copy(entrada,89,14);
table1cusicm.Value:=copy(entrada,107,11);
table1cusmoe.Value:=copy(entrada,125,11);
table1cusrep.Value:=copy(entrada,143,11);
table1atuand.Value:=copy(entrada,161,11);
table1conand.Value:=copy(entrada,179,11);
table1icmand.Value:=copy(entrada,197,11);
table1moeand.Value:=copy(entrada,215,11);
table1repand.Value:=copy(entrada,233,11);
table1prient.Value:=copy(entrada,251,08);
table1ultent.Value:=copy(entrada,259,08);
table1ultsai.Value:=copy(entrada,267,08);
table1ultaju.Value:=copy(entrada,275,08);
table1ultinv.Value:=copy(entrada,283,08);
table1ultcus.Value:=copy(entrada,291,08);
table1ultpre.Value:=copy(entrada,299,11);
table1girtot.Value:=copy(entrada,312,05);
table1girbru.Value:=copy(entrada,317,05);
table1girver.Value:=copy(entrada,322,05);
table1filcod.EditMask:=´0000´;
table1.Refresh;
end;
closefile(TXT);
Table1.First;
ProgressBar1.Max := Table1.RecordCount;
for i := 1 to Table1.RecordCount do
begin
Table1.Next;
ProgressBar1.Position := i;
end;
ProgressBar1.Position := 0;
end;


se não entendeu meu email é cpd_arim@hotmail.com
esou on line pelo msn.

Esse arquivo não é XML não???

Sim é um arquivo XML, mas já procurei neste forum e postei
um novo topico dizendo que tinha com o componente CLIENTDATASET
funciona mas não encontrei nada que me explicasse como
funciona, por isso tentei postar como arquivo texto, para
ver se tinha outra solução

Grato

Claudio

Coloque um ClientDataSet no Form

Clique na elipse da propriedade FileName, e escolha o arquivo XML.

Atribua true para Active...

Pronto... seu XML está acessível pelo ClientDataSet, como se fosse uma tabela de um banco de dados...

Grato pela colaboracao, mas da um erro de DataPacket

Grato

Claudio

me manda esse arquivo ( se for possível )... alessandro.goncalves@jshayeb.com.br

Cara... na verdade eu não tenho experiência com XML... mas eu tenho um exemplo do Guinter aqui, e o estranho é que o formato que seu arquivo está não é, nem um XML puro, nem um XML transformado para ser lido por ClientDataSet...

O XML puro seria assim:



O transformado seria assim (que é parecido com o seu):



É preciso utilizar o utilitário XMLMapper para gerar um arquivo transitório entre o XML... esse arquivo tem a extensão XTR...