Como importar dados de um arquivo TXT..!
Galera me dê uma força aqui :
Preciso importar dados de um aquivo .txt para o BD .
No arquivo ficaria assim:
900.111.111.53;Fulano de tal
900.111.111.53;Fulano de tal
900.111.111.53;Fulano de tal
900.111.111.53;Fulano de tal
900.111.111.53;Fulano de tal
Obrigado pela atenção
Preciso importar dados de um aquivo .txt para o BD .
No arquivo ficaria assim:
900.111.111.53;Fulano de tal
900.111.111.53;Fulano de tal
900.111.111.53;Fulano de tal
900.111.111.53;Fulano de tal
900.111.111.53;Fulano de tal
Obrigado pela atenção
Michel
Curtidas 0
Respostas
Wizard
16/02/2004
var
linha,matricula: string;
txt : TextFile;
begin
Table1.Open;
AssignFile(txt,´C:\arquivos de programas\Wizard Company\Gerenciador de Ponto\Movimento.txt´);// caminho onde esta o arquivo
reset(txt);
while not Eof(txt) do
begin
Readln(txt,Linha);
try
Matricula := copy(linha,1,9);
Table1.indexName := ´meuindex´;
if (minhatabela.FindKey([meuindex])) then
begin
minhatabela.edit;
matricula := minhatabela.meucampo.value;
minhatabela.post
end
else
faça_alguma_coisa;
Ps - Como o meu arquivo txt e muito grande e muito dividido eu primeiro coloco a parte do txt dentro de variaveis para depois salvar na minha tabela.
Espero ter ajudado - E muito bom partilhar, um dia postei esta mesma pergunta aqui e foi assim que aprendi...
linha,matricula: string;
txt : TextFile;
begin
Table1.Open;
AssignFile(txt,´C:\arquivos de programas\Wizard Company\Gerenciador de Ponto\Movimento.txt´);// caminho onde esta o arquivo
reset(txt);
while not Eof(txt) do
begin
Readln(txt,Linha);
try
Matricula := copy(linha,1,9);
Table1.indexName := ´meuindex´;
if (minhatabela.FindKey([meuindex])) then
begin
minhatabela.edit;
matricula := minhatabela.meucampo.value;
minhatabela.post
end
else
faça_alguma_coisa;
Ps - Como o meu arquivo txt e muito grande e muito dividido eu primeiro coloco a parte do txt dentro de variaveis para depois salvar na minha tabela.
Espero ter ajudado - E muito bom partilhar, um dia postei esta mesma pergunta aqui e foi assim que aprendi...
GOSTEI 0
Gandalf.nho
16/02/2004
Se o arquivo texto for do tipo delimitado, pode usar o componente PgCSV, procure no site Delphi Super Page [url]http://delphi.icm.edu.pl/[/url], já que o site oficial parece estar fora do ar.
GOSTEI 0