Você terá que abrir o arquivo para leitura, e, para cada linha lida (enquanto
não chegar o final) extrair as strings para uma variável do tipo TStringList.
Depois, use o índice para pegar os valores que você quer (iniciando em 0).
Ao final do uso, chame o método Clear para limpar o conteúdo da TStringList
criada.
Quando a mesma não for mais necessária, libere a memória usada.
Ficaria mais ou menos assim:
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
procedure ExtraiDadosArquivo;
var
DataFile : Text;
lineFile : String;
fileStrings : TString;
begin
if FileExists(OpenDialog1.FileName) then //supondo que o usuário abrirá o
arquivo com diálogo do Windows
begin
AssignFile(DataFile, OpenDialog1.Filename);
Reset(DataFile);
try
fileStrings := TStringList.Create;
try
while not Eof(DataFile) do
begin
Readln(DataFile, lineFile);
//substitua o ; pelo caractere separador do arquivo
ExtratcStrings([';'],[' '],PChar(lineFile),fileStrings);
//manipula as strings extraídas, como gravar seus valores em uma
tabela do banco de dados
Cliente.Nome := fileStrings[0];
.
.
.
//substitua n pelo numero correspondente
Cliente.TotalCompras := fileStrings[n];
//limpa o conteúdo da TStringList criada
fileStrings.Clear;
end;
finally
fileStrings.Free;
end;
finally
CloseFile(DataFile);
end;
end; //FileExists()
end; //Procedure
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Espero ter ajudado.
Um abraço e qualquer coisa dê um grito aí...
--------------------------------------------------------------------------------
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 10:33 AM
Subject: 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
[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
