Fórum TABELAS IBEXPERT E ARQUIVOS .TXT #433136

var
  sArquivo: TextFile;
  Entrada, sArq2: string;
  iLinha: integer;
begin
  tblCep.Open;
  tblCepLoc.Open;
  bCancelaImport := False;
  AssignFile(sArquivo, FileNameEdit1.FileName);
  sArq2 := After('Cep_Loc.txt',FileNameEdit1.FileName);

  iLinha := 0;
  if FileNameEdit1.FileName = 'C:\Download\Ceps\Cep_loc.txt' then begin
    // Arquivo de Localidades
    RzProgressBar1.TotalParts := 0;
    RzProgressBar1.TotalParts := NumLinhasArq(FileNameEdit1.FileName);

    Reset(sArquivo);
    Readln(sArquivo,Entrada);
    while not Eoln(sArquivo) do begin
      Inc(iLinha);
      Readln(sArquivo,Entrada);

      // 0 = Base Total e 2 = Inclusao
      if (copy(Entrada,90,1) = '0') or (copy(Entrada,90,1) = '2') then
      begin
        tblCepLoc.Append;
        tblCepLoc.FieldByName('cep_ChvLocal').AsString :=
        copy(Entrada,1,6);
        tblCepLoc.FieldByName('cep_Cidade').AsString :=
        copy(Entrada,7,60);
        tblCepLoc.FieldByName('cep_UF').AsString := copy(Entrada,75,2);
      try
        blCepLoc.Post;
      except
        blCepLoc.Cancel;
      end;
    end
    else if (copy(Entrada,90,1) = '1') then begin // Exclusao
      if tblCepLoc.Locate('cep_ChvLocal', copy(Entrada,1,6),
        [loPartialKey]) then
          tblCepLoc.Delete;
    end
    else if (copy(Entrada,90,1) = '3') then begin // Alteracao
      if tblCepLoc.Locate('cep_ChvLocal', copy(Entrada,1,6),
      [loPartialKey])
      then begin
        tblCepLoc.Edit;
        tblCepLoc.FieldByName('cep_Cidade').AsString :=
        copy(Entrada,7,60);
        tblCepLoc.FieldByName('cep_UF').AsString :=
        copy(Entrada,75,2);
      end;
      try
        tblCepLoc.Post;
      except
        tblCepLoc.Cancel;
      end;
    end;
    RzProgressBar1.PartsComplete := iLinha;
    Application.ProcessMessages;
    if bCancelaImport then
      Break;
    end;
    CloseFile(sArquivo);
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
//Declarando tamanho das variaveis que do arquivo.
  Tronco    : string[2]; //TRONCO 
  Ramal     : string[3]; //RAMAL 
  Telefone  : string[8]; //NÚMERO
  hora      : string[6]; // HORA
  tempo     : string[6]; //tempo
  data      : string[8]; //data
  CodLocal  : string[2]; //codigo local

//Variaveis Auxiliares

  Arq : TextFile;
begin
  if OpenDialog1.Execute then
    exit;

  AssignFile(Arq, OpenDialog1.FileName);

  Reset(Arq);

  while not Eof(Arq) do
  begin
    Readln(Arq, Tronco, Ramal, Telefone, Hora, Tempo, Data, CodLocal);

    Qry_Aux.Close;
    Qry_Aux.SQL.Clear;
    Qry_Aux.SQL.Add('INSERT INTO TELEFONICA');
    Qry_Aux.SQL.Add('(TRONCO, RAMAL, TELEFONE, HORA, TEMPO, DATA, CODLOCAL)');
    Qry_Aux.SQL.Add('VALUES');
    Qry_Aux.SQL.Add('(:TRONCO, :RAMAL, :TELEFONE, :HORA, :TEMPO, :DATA, :CODLOCAL)');
    Qry_Aux.ParamByName('TRONCO'  ).AsInteger  := StrToInt(TRONCO);
    Qry_Aux.ParamByName('RAMAL'   ).AsInteger  := StrToInt(RAMAL);
    Qry_Aux.ParamByName('TELEFONE').AsString   := TELEFONE;
    Qry_Aux.ParamByName('HORA'    ).AsTime     := StrToTime(HORA);
    Qry_Aux.ParamByName('TEMPO'   ).AsTime     := StrToTime(TEMPO);
    Qry_Aux.ParamByName('DATA'    ).AsDate     := STRTODATE(DATA);
    Qry_Aux.ParamByName('CODLOCAL').AsInteger  := StrToInt(CODLOCAL);
    Qry_Aux.ExecSQL;

  end;
  CloseFile(Arq);
  FreeAndNil(Qry_Aux); 
end;

end.