Mandei um exemplo pro Ralp que mostra o uso de TStringList para importação de arquivos, abordando o uso das propriedades QuoteChar, DelimitedText e Delimiter.
Sds. -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fabricio Colombo Enviada em: quarta-feira, 14 de julho de 2010 09:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo var vList: TStringList; begin vList := TStringList.Create; try vList.Delimiter := ','; vList.DelimitedText := SuaLinha; Memo1.Lines.Assign(vList); finally vList.Free; end; Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas duplas, e agora que os decimas estão com ponto, vai funcionar perfeitamente. Em 14 de julho de 2010 10:03, Ralp Alves Bezerra <ral...@gmail.com>escreveu: > > > Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo > arquivo para importação. E para minha surpresa, os valores não mais tinham > as casas decimais com vírgula e sim ponto. > > Acredito que possa ter ocorrido um erro na geração do arquivo anterior. > > Esta é uma das linhas de várias dentro do arquivo. > > "601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2 ","002","0000","33901400","O","Valor > que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria > para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da > APRECE, no periodo de > 14/05/2010.",11400.00,250.00,11150.00,"","",0,"",0,"F","7","77777777777","PE DRO > ROGERIO MORAIS","RUA PROFESSOR NICACIO, S/N > CENTRO","00883663126","62570000","BELA CRUZ","CE",0,"","","01192619366" > > Os valores agora não tem mais vírgulas nas casas decimais. Porém, no > histórico:"Valor que se empenha p/ fazer face as despesas com Concessao de > 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais > na Sede da APRECE, no periodo de 14/05/2010." existe a utilização de > vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula. > > Outro caso, é a existência de campos em branco: "BELA > CRUZ","CE",0,"","","01192619366". > > Como devo proceder a partir de agora? > > Abraços. > > De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto: > delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em nome de > Marcos Douglas > Enviada em: quarta-feira, 14 de julho de 2010 09:22 > > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Assunto: Re: RES: [delphi-br] Importação de Arquivo > > 2010/7/14 Walter Chagas (Bol) <wchag...@bol.com.br <wchagasj%40bol.com.br><mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> >: > > > Ruben, torno a questionar. > > > > E se tiver dois valores float na sequencia? Lembre-se que os valores > float não vem entre aspas. > > Li todos os emails desta thread e gostaria de fazer um comentário. > Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo > está errado e não pode ser lido com 100% de certeza, ou seja, algo > deverá ser "interpretado" da melhor forma possível, caso o sistema > encontre uma "anomalia". > > [1] Alguns conceitos utilizados em muitos arquivos textos formatados: > - cada coluna tem um número determinado de caracteres > - delimitador único para cada coluna: os arquivos csv são exemplos, > mas quando há vírgulas dentro de um dado, este é quotado com aspas. > - prefixos para cada tipo de informação: uma letra, simbolo, etc > - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de > caracteres como [[informação]] > - etc. > > Abraço, > MD. > > [As partes desta mensagem que não continham texto foram removidas] > > >
