Fórum Carregar um arquivo sem extenção para bd? #221093
19/03/2004
0
13| 40| 8| | |55413291694 |19/03/2004|15:47:22| 0:00:32|01| 0|000|00| 129|03|0|0|00|011E|9999|34285239|SRSANTAN
Preciso carregar um arquivo neste formato no banco de dados! como faço?
Só que não estou conseguindo fazer funcionar....
Preciso carregar um arquivo neste formato no banco de dados! como faço?
procedure TF_ImportaPagamentos.RecArqSEF;
begin
Screen.Cursor := crHourGlass;
Reset(prArq);
if not eof(prArq) then
repeat
ReadLn(prArq, Texto);
prMASP := Copy(Texto,1,8);
prIndica := Copy(Texto,59,1);
prTxValor := Copy(Texto,99,10);
prVrValor := StrToFloat(prTxValor) / 100;
with TabRecebe do
begin
Insert;
FieldByName(´FP´).AsString := prFt;
FieldByName(´AnoMes´).AsString := prAnoMes;
FieldByName(´MASP´).AsString := prMASP;
FieldByName(´Tipo´).AsString := prIndica;
FieldByName(´Valor´).AsFloat := prVrValor;
Post;
end;
until eof(prArq);
CloseFile(prArq);
Screen.Cursor := crDefault;
end; Só que não estou conseguindo fazer funcionar....
Genial_reis
Curtir tópico
+ 0
Responder
Posts
19/03/2004
Sremulador
qual o tel banco de dados ???
Responder
Gostei + 0
19/03/2004
Aroldo Zanela
Colega,
Fiz algumas alterações, pois não consegui entender exatamente o seu código:
Fiz algumas alterações, pois não consegui entender exatamente o seu código:
procedure TForm1.TF_ImportaPagamentos;
var prArq: TextFile;
Texto: String;
begin
try
Screen.Cursor := crHourGlass;
AssignFile(prArquivo,´C:\PASTA\ARQUIVO.TXT´); // Linha inserida
Reset(prArq);
While not Eof(prArq) do
begin
ReadLn(prArq, Texto);
with TabRecebe do
begin
Append;
FieldByName(´FP´).AsString := ´´;// prFt; { Deve ser variável global?}
FieldByName(´AnoMes´).AsString := ´´;//prAnoMes; { Deve ser variável global?}
FieldByName(´MASP´).AsString := Copy(Texto,1,8);
FieldByName(´Tipo´).AsString := Copy(Texto,59,1);
FieldByName(´Valor´).AsFloat := StrToFloat(Copy(Texto,99,10))/100;
Post;
end;
end;
finally
CloseFile(prArq);
Screen.Cursor := crDefault;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)