Fórum Arquivo texto URGENTE... #163043
28/05/2003
0
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
Curtir tópico
+ 0
Responder
Posts
03/09/2018
Daniel Araújo
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)