Mesmo para um novato, quem já mexeu com TXT, consegue fazer isto. Seu problema parece mais lógica.
a) Crie o seu DBF com a estrutura que vc precisa b) Abra o arquivo número 1 (use até em um memo se for mais fácil pra vc) c) Abra o arquivo número 2 (use até em um memo se for mais fácil pra vc) d) Corra o primeiro arquivo (com FOR se memo, ou ReadLn, se Assign), para cada produto encontrado aqui faça um while no segundo arquivo de forma a pegar todos os códigos de barras deste. e) Va gravando o resultado no arquivo. Existem outras maneiras, mas acho que é um bom ponto de partida. Veja, no lugar do TMEMO, ou AssignFile ainda poderia usar outros meios como o TStringList por exemplo. Abs e boa sorte... Rodinei Amorim Programador Delphi (11) 8208-9503 rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br From: Daniel Camargo Sent: Monday, September 21, 2009 9:23 AM To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] Dois Arquivos TXT para DBF Ninguém consegue me ajudar? ________________________________ De: danielcamargodf <danielcamarg...@yahoo.com.br> Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 20 de Setembro de 2009 13:00:39 Assunto: [delphi-br] Dois Arquivos TXT para DBF PessoALL, Sou novato e estou precisando da ajuda de vocês, tenho dois arquivos em TXT um contém uma referencia ao segundo arquivo texto, nome do produto e preço, o segundo tem uma referencia ao primeiro e o código de barras. Ex: Arquivo Texto 01: 000023COCA COLA Arquivo Texto02: 0000237891010101012 Perceba que os dois tem 000023 é o que liga um ao outro. A minha dificuldade é fazer a conversão dos dois arquivos pegando por essa referencia, até hoje tinha feito apenas de um arquivo texto, mas agora preciso pegar esses dois arquivos e transformar em um só arquivo DBF, outro detalhe é que no arquivo texto número 02 podem ter mais de um código de barra com a mesma referencia, mas em linhas separadas. Espero que alguém possa me ajudar. Abraços. __________________________________________________________ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
