Ler arquivo texto ?
Olá Pessoal, eu tenho um arquivo de CEPS que está em texto nesse formato, como faço pra ler e importar para o Banco de Dados ?
layOut:
CEP RUA CIDADE BAIRRO UF TIPO
79032350|ABEL F. ARAGAO|CAMPO GRANDE|C BOSQUE|MS|R
Obrigada,
Renata Coimbra.
layOut:
CEP RUA CIDADE BAIRRO UF TIPO
79032350|ABEL F. ARAGAO|CAMPO GRANDE|C BOSQUE|MS|R
Obrigada,
Renata Coimbra.
Renata Coimbra
Curtidas 0
Respostas
P_lima
28/01/2004
procedure
var
f: TextFile;
Linha: String;
begin
AssignFile(f,´C\ARQUIVO.TXT´);
Reset(f); //abre o arquivo para leitura
While Not Eof(f) Do
begin
Readln(f, Linha); // Lê do arquivo e desce uma linha.
// O conteúdo lido é transferido para a variável Linha
Table1.Append;
Table1.FieldByName(´RE_NUME´).AsString := Copy(Linha,7,6);
Table1.FieldByName(´RE_NCLI´).AsString := Copy(Linha,17,12);
Table1.Post;
//Memo1.Lines.Add(Linha); // Adiona os dados no MEMO, caso queira usar um memo.
end;
CloseFile(f); // fecha o arquivo
End;
Caro colega, se vc poder me mandar esse arquivo de Cep´s no formato txt, para meu E-mail, lhe agradeço.
E-mail: p.ancora@terra.com.br
var
f: TextFile;
Linha: String;
begin
AssignFile(f,´C\ARQUIVO.TXT´);
Reset(f); //abre o arquivo para leitura
While Not Eof(f) Do
begin
Readln(f, Linha); // Lê do arquivo e desce uma linha.
// O conteúdo lido é transferido para a variável Linha
Table1.Append;
Table1.FieldByName(´RE_NUME´).AsString := Copy(Linha,7,6);
Table1.FieldByName(´RE_NCLI´).AsString := Copy(Linha,17,12);
Table1.Post;
//Memo1.Lines.Add(Linha); // Adiona os dados no MEMO, caso queira usar um memo.
end;
CloseFile(f); // fecha o arquivo
End;
Caro colega, se vc poder me mandar esse arquivo de Cep´s no formato txt, para meu E-mail, lhe agradeço.
E-mail: p.ancora@terra.com.br
GOSTEI 0