Arquivo texto URGENTE...

Delphi

28/05/2003

Amigos, estou precisando jogar algumas informações que estão dentro de um arquivo texto para uma tabela do intebase, só que as informações que eu preciso estão desalinhadas dentro do arquivo texto..

Vejam o formato do arquivo texto e as informações que preciso

01CodigoDoCliente
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxLinha Inutil
02produto000quantidade00000valor
02produto000quantidade00000valor
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxLinha Inutil
01CodigoDoCliente
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxLinha Inutil
02produto000quantidade00000valor
02produto000quantidade00000valor

Eu Preciso jogar o codigo do cliente no campo codigo da tabela e a linha que começa com 02 jogar o produto no campo produto da tabela, quantidade no campo quantidade e assim por diante..

Por favor se vc souber por gentileza me de um help..

Grato


Fabiano




_________________
[b:9ac9186439][color=darkblue:9ac9186439]´Crê no Senhor JESUS e seras salvo tu e tua casa´[/color:9ac9186439][/b:9ac9186439]


Fabianosouza

Fabianosouza

Curtidas 0

Respostas

Daniel Araújo

Daniel Araújo

28/05/2003

if Copy(Linha, 1, 2) = '01' then
begin
//Salva Informações do Cliente
end
else if Copy(Linha, 1, 2) = '02' then
begin
//Salva Informações do Produto
end;
GOSTEI 0
POSTAR