Fórum Rotina de importação URGENTE! #191657
30/10/2003
0
Como faço para criar uma rotina de importação de arquivo .txt?
Obrigada!
Obrigada!
Xuxu
Curtir tópico
+ 0
Responder
Posts
30/10/2003
Imoreira
Importar o que e prá onde?
Explique melhor.
Explique melhor.
Responder
Gostei + 0
30/10/2003
Xuxu
Tenho uma tabela de preços e quero fazer a importação dos dados atualizados para ela... o arquivo é em .txt
Responder
Gostei + 0
30/10/2003
Bampavao
Exemplo para fazer a conversão de arquivo .TXT para DB.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
TXT :TextFile;
Entrada :String;
Begin
AssignFile(TXT,´SeuArquivo.TXT´);
Reset(TXT);
While not Eoln(TXT) do
Begin
ReadLn(TXT,Entrada);
Table1.Insert;
Table1Codigo.Value:= Copy(Entrada,01,05);
Table1Nome.Value:= Copy(Entrada,06,50);
Table1.Post;
End;
CloseFile(TXT);
End;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
TXT :TextFile;
Entrada :String;
Begin
AssignFile(TXT,´SeuArquivo.TXT´);
Reset(TXT);
While not Eoln(TXT) do
Begin
ReadLn(TXT,Entrada);
Table1.Insert;
Table1Codigo.Value:= Copy(Entrada,01,05);
Table1Nome.Value:= Copy(Entrada,06,50);
Table1.Post;
End;
CloseFile(TXT);
End;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)