Arquivo texto URGENTE...
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]
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
Curtidas 0
Respostas
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;
begin
//Salva Informações do Cliente
end
else if Copy(Linha, 1, 2) = '02' then
begin
//Salva Informações do Produto
end;
GOSTEI 0