Importaçao TXT
28/04/2003
0
Caros Amigos e Amigas.
Eu ja envie esta duvida (ate houve resposta) mas nao estou conseguindo localizar mais a mensagen.
Por isso volto a perguntar.
Estou fazendo uma importaçao de um arquivo TXT demilitado por ´;´, preciso saber se os meus comandos estao corretos e se e somente desta forma que posso fazer a importaçao.
Segue o codigo.
procedure TForm1.Button1Click(Sender: TObject);
Var
Arquivo: TextFile;
Linha: Integer;
Registro: String;
begin
if OpenDialog1.Execute then
AssignFile(Arquivo, OpenDialog1.FileName);
Reset(Arquivo);
Linha := 0;
Table1.Open;
if Table1.RecordCount > 0 then
while not Table1.Eof do
begin
Table1.Delete;
end;
while not Eof(Arquivo) do
begin
ReadLn(Arquivo, Registro);
inc(Linha);
Table1.Append;
Table1.FieldByName(´Codigo´).AsString :=
Copy(Registro,2,Pos(´;´,Registro)-3);
Delete(Registro, 1, Pos(´;´, Registro) + 1);
Table1.FieldByName(´Nome´).AsString :=
Copy(Registro, 1, Pos(´;´, Registro)-2);
Delete(Registro, 1, Pos(´;´, Registro) + 1);
Table1.FieldByName(´Endereco´).AsString :=
Copy(Registro, 1, Length(Registro)-1);
Table1.Post;
ProgressBar1.Position := Linha;
end;
ShowMessage(´Total de Importações = ´ + IntToStr(Linha));
CloseFile(Arquivo);
end;
Fico no aguardo de uma resposta.
:oops:
Eu ja envie esta duvida (ate houve resposta) mas nao estou conseguindo localizar mais a mensagen.
Por isso volto a perguntar.
Estou fazendo uma importaçao de um arquivo TXT demilitado por ´;´, preciso saber se os meus comandos estao corretos e se e somente desta forma que posso fazer a importaçao.
Segue o codigo.
procedure TForm1.Button1Click(Sender: TObject);
Var
Arquivo: TextFile;
Linha: Integer;
Registro: String;
begin
if OpenDialog1.Execute then
AssignFile(Arquivo, OpenDialog1.FileName);
Reset(Arquivo);
Linha := 0;
Table1.Open;
if Table1.RecordCount > 0 then
while not Table1.Eof do
begin
Table1.Delete;
end;
while not Eof(Arquivo) do
begin
ReadLn(Arquivo, Registro);
inc(Linha);
Table1.Append;
Table1.FieldByName(´Codigo´).AsString :=
Copy(Registro,2,Pos(´;´,Registro)-3);
Delete(Registro, 1, Pos(´;´, Registro) + 1);
Table1.FieldByName(´Nome´).AsString :=
Copy(Registro, 1, Pos(´;´, Registro)-2);
Delete(Registro, 1, Pos(´;´, Registro) + 1);
Table1.FieldByName(´Endereco´).AsString :=
Copy(Registro, 1, Length(Registro)-1);
Table1.Post;
ProgressBar1.Position := Linha;
end;
ShowMessage(´Total de Importações = ´ + IntToStr(Linha));
CloseFile(Arquivo);
end;
Fico no aguardo de uma resposta.
:oops:
Ericfp
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)