Gostaria de agradecer a todos na lista que se despuseram a sanar minha
dúvida.

 

O exemplo que o Rubem Rocha enviou serviu como uma luva.

 

Gostaria de agradecer também ao nobres colegas Daniel Azevedo, Fabricio
Colombo, Jean Barreiros, Walter Chagas, Marcos Douglas e a todos que de
alguma maneira me ajudaram em mais esta empreitada.

 

Muito obrigado, 

 

Abraço a todos.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: quarta-feira, 14 de julho de 2010 14:01
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br] Importação de Arquivo
Prioridade: Alta

 

  

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-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
] Em
nome de Fabricio Colombo
Enviada em: quarta-feira, 14 de julho de 2010 09:23
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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
<mailto:ralprd%40gmail.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 <mailto:delphi-br%40yahoogrupos.com.br>
<delphi-br%40yahoogrupos.com.br> [mailto:
> delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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 <mailto:delphi-br%40yahoogrupos.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
<mailto:wchagasj%40bol.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]
>
> 
>





[As partes desta mensagem que não continham texto foram removidas]

Responder a