O problema é que os campos tem tamanhos variados, não teria como eu dar um copy.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Wagne®_Fix Enviada em: terça-feira, 13 de julho de 2010 16:26 Para: delphi-br@yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Eu uso COPY, as pessoas podem achar complicado mas eu me dou muito bem... Tem um cliente meu que importa mais ou menos uns 1000 dados diários para o Banco e nunca deu problema... AssignFile(arq,g); Reset ( arq ); ReadLn ( arq, linha ); Tot := 0; AuxTot := 0; while not Eof ( arq ) do begin AuxLinha := ''; AuxPed := ''; AuxChassi := ''; AuxLinha := Copy(linha,53,1); AuxPed := Copy(linha,1,10); AuxChassi := Copy(linha,51,10); end; ________________________________ De: Ralp Alves Bezerra <ral...@gmail.com <mailto:ralprd%40gmail.com> > Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato "100.000,00" que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> From: ral...@gmail.com <mailto:ralprd%40gmail.com> <mailto:ralprd%40gmail.com> Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: "601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2 ","002","0000","33901400","100.000,00" "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2 ","002","0000","33901400","130.00" "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2 ","002","0000","33901400","1.000,00" "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2 ","003","0000","33903000","10.000,00" "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2 ","006","0000","33903900","100,00" Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __________________________________________________________ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E VEJA COMO. http://www.windowslive.com.br/public/tip.aspx/view/84?product=2 <http://www.windowslive.com.br/public/tip.aspx/view/84?product=2 <http://www.windowslive.com.br/public/tip.aspx/view/84?product=2&ocid=WLCRM:> &ocid=WLCRM: Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-> &ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
