Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas duplas, e agora que os decimas estão com ponto, pode usar o TStringList que vai funcionar.
Faça o teste abaixo com uma linha do arquivo. var vList: TStringList; begin vList := TStringList.Create; try vList.Delimiter := ','; vList.DelimitedText := SuaLinha; Memo1.Lines.Assign(vList); finally vList.Free; end; Em 14 de julho de 2010 13:15, Rubem Rocha <rubem.ro...@dtmanaus.com.br>escreveu: > > > Ok. Identifiquei que são 38 campos em cada linha de dados. Só preciso saber > o significado e tipo de dados de cada um deles. > > Sds. > > 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 > Ralp Alves Bezerra > Enviada em: quarta-feira, 14 de julho de 2010 11:07 > > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Assunto: RES: RES: [delphi-br] Importação de Arquivo > > O arquivo original > > http://www.grupog2gestao.com.br/NE201005.txt > > De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> <mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > [mailto:delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> ] Em > nome de Rubem Rocha > > Enviada em: quarta-feira, 14 de julho de 2010 11:00 > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > Assunto: RES: RES: [delphi-br] Importação de Arquivo > Prioridade: Alta > > Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja > tão cabeludo esse problema pra resolver. Vou montar um exemplo de análise de > texto nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que > isso não é dilema ou paradoxo tão complexo pra ser resolvido. Se estiver > como você que necessita, eu posto o exemplo na área de arquivos da lista pro > povo todo ver que isso é simples de resolver. > > Sds. > > De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> <mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > [mailto:delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > ] Em nome de Ralp Alves Bezerra > > Enviada em: quarta-feira, 14 de julho de 2010 05:56 > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > Assunto: RES: RES: [delphi-br] Importação de Arquivo > > Pois é, este formato esta me deixando louco aqui. > > Existem os valores do tipo float que também possuem as vírgulas e não são > delimitados por aspas duplas. 100,10.200,25,098 > > Existem campos em branco 100,,10.200,25,098 > > Esta sendo um grande dilema. > > Abraço. > > De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> <mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > [mailto:delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > ] Em nome de Marcelo > > Enviada em: terça-feira, 13 de julho de 2010 21:06 > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > Assunto: Res: RES: [delphi-br] Importação de Arquivo > > Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como > separação. Já trabalhei comarquivos txt parecido com este mas todos os > campos > vinham separados por aspas duplas. Agora este caso tem que analisar um > pouco. > De: sWalter Chagas (Bol) <wchag...@bol.com.br <wchagasj%40bol.com.br><mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> <mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> <mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> <mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> > > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 > Assunto: Re: RES: [delphi-br] Importação de Arquivo > > Não não não não. > > Da forma como você está propondo, voce supoe que entre os valores do tipo > String > (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas > e se > vier dois ou mais na sequência?? Veja o caso abaixo: > > > "601","029",2.010,98,1.011,32,"01",20100517,17,05,20,10,"04","122","0003","2 > ","002","0000","33901400","130.00" > > como ficaria este caso? > > []s > > Walter Alves Chagas Junior > Belo Horizonte - MG - Brazil > wchag...@bol.com.br <wchagasj%40bol.com.br> > <mailto:wchagasj%40bol.com.br<wchagasj%2540bol.com.br>> > <mailto:wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> <mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> <mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> > http://delphitocorporerm.blogspot.com/ > http://twitter.com/wchagas > MSN: whitesock...@hotmail.com <whitesockets%40hotmail.com> <mailto: > whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> <mailto: > whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> <mailto: > whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> <mailto: > whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> > SKYPE: WalterChagasJr > > ----- Original Message ----- > From: Marcelo > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> <mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > Sent: Tuesday, July 13, 2010 5:29 PM > Subject: Res: RES: [delphi-br] Importação de Arquivo > > tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos > valores > decimais não será substituida. Ai ele terá um separador padrão o ponto e > virgula. depois fica facil. > > ________________________________ > De: Walter Chagas (Bol) <wchag...@bol.com.br <wchagasj%40bol.com.br><mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> <mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> <mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> <mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> > > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 > Assunto: Re: RES: [delphi-br] Importação de Arquivo > > é mas e a virgula dos valores decimais?? > > É um enigma essa parada daí. > > []s > > Walter Alves Chagas Junior > Belo Horizonte - MG - Brazil > wchag...@bol.com.br <wchagasj%40bol.com.br> > <mailto:wchagasj%40bol.com.br<wchagasj%2540bol.com.br>> > <mailto:wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> <mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> <mailto: > wchagasj%40bol.com.br <wchagasj%2540bol.com.br>> > http://delphitocorporerm.blogspot.com/ > http://twitter.com/wchagas > MSN: whitesock...@hotmail.com <whitesockets%40hotmail.com> <mailto: > whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> <mailto: > whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> <mailto: > whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> <mailto: > whitesockets%40hotmail.com <whitesockets%2540hotmail.com>> > SKYPE: WalterChagasJr > > ----- Original Message ----- > From: Marcelo > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> <mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > Sent: Tuesday, July 13, 2010 5:04 PM > Subject: Res: RES: [delphi-br] Importação de Arquivo > > Já pensou em dar um StringReplace nas "," trocando por ";" ai voce teria um > > separador padrão ai facaria muito mais facil de trabalhar > > ________________________________ > De: Ralp Alves Bezerra <ral...@gmail.com <ralprd%40gmail.com> <mailto: > ralprd%40gmail.com <ralprd%2540gmail.com>> > <mailto:ralprd%40gmail.com<ralprd%2540gmail.com>> > <mailto:ralprd%40gmail.com <ralprd%2540gmail.com>> <mailto: > ralprd%40gmail.com <ralprd%2540gmail.com>> > > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.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 <delphi-br%40yahoogrupos.com.br> <mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > [mailto:delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.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 <delphi-br%40yahoogrupos.com.br> <mailto: > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > <mailto:delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > From: ral...@gmail.com <ralprd%40gmail.com> > <mailto:ralprd%40gmail.com<ralprd%2540gmail.com>> > <mailto:ralprd%40gmail.com <ralprd%2540gmail.com>> <mailto: > ralprd%40gmail.com <ralprd%2540gmail.com>> > <mailto:ralprd%40gmail.com<ralprd%2540gmail.com>> > <mailto:ralprd%40gmail.com <ralprd%2540gmail.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 > > [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] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html