Essa procedure que passei se encontra na Unit Classes.
Tem uma unit inteira no Delphi que acredito que muitos não conhecem. Trata-se
da StrUtils.
Dêm uma olhada nas rotinas disponíveis nesta Unit pois há muita coisa legal lá.
Uma observação: aqui eu uso o Delphi 7. Não sei dizer se nas versões anteriores
esta Unit está disponível.
Abraços.
--------------------------------------------------------------------------------
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
[EMAIL PROTECTED]
----- Original Message -----
From: Ricardo Cesar Cardoso
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 11, 2006 11:20 AM
Subject: Res: RES: [delphi-br] Importar arquivo texto delimitado
Essa função eu não conhecia! Muito obrigado mesmo pela dica. Vou começar a
usar este método.
Abraços
Ricardo.
----- Mensagem original ----
De: Alexandre <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 11 de Outubro de 2006 10:33:34
Assunto: RES: [delphi-br] Importar arquivo texto delimitado
Bom dia,
Valew Edu, vou fazer um teste aqui e depois retorno.
Saudações.
---
[]'s
Alexandre
Frase da semana: "No caráter, na conduta, no estilo, em todas as coisas, a
simplicidade é a suprema virtude." (Henry Wadsworth Longfellow)
Frase de la semana: "En el carácter, el comportamiento, el estilo, todas las
cosas, la simplicidad és la virtud suprema." (Henry Wadsworth Longfellow)
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Edu Nicácio
Enviada em: quarta-feira, 11 de outubro de 2006 10:13
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Importar arquivo texto delimitado
Use a rotina ExtractStrings() para extrair, de cada linha do arquivo, os
valores constantes na mesma. Ex:
Arquivo:
Campos Código;Data de cadastro;Nome;Tipo cliente;Total em compras
linhaLida := 3FE4996A00FF;01/12/2005 14:00:00;FULANO DE TAL;CLIENTE
ESPECIAL;12456,00
ExtractStrings([';'],[' '],PChar(linhaLida),MyStringList);
O primeiro parâmetro é o caractere separador, no caso, ponto e vírgula (;);
o segundo parãmetro é o caractere de espaço ( ); o terceiro parâmetro é a
string da qual serão extraídos os valores; o quarto parãmetro é uma
TStringList que armazenará os valores recuperados.
Para usar uma TStringList, use o bloco try...finally, assim:
MyStringList := TStringList.Create;
try
//faz alguma coisa com MyStringList
finally
MyStringList.Free;
end;
Qualquer coisa, posta aí o que achou.
Espero ter ajudado.
Abraço.
----------------------------------------------------------------------------
----
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
[EMAIL PROTECTED]
----- Original Message -----
From: Alexandre
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 11, 2006 9:06 AM
Subject: [delphi-br] Importar arquivo texto delimitado
Estimados,
Bom dia. Como eu faço pra importar um arquivo texto com delimitador ?
Saudações.
---
[]'s
Alexandre
Frase da semana: "No caráter, na conduta, no estilo, em todas as coisas, a
simplicidade é a suprema virtude." (Henry Wadsworth Longfellow)
Frase de la semana: "En el carácter, el comportamiento, el estilo, todas
las
cosas, la simplicidad és la virtud suprema." (Henry Wadsworth Longfellow)
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
__________ NOD32 1.1797 (20061010) Information __________
This message was checked by NOD32 antivirus system.
http://www.eset.com
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[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:
[EMAIL PROTECTED]
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:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
