Migrar Registros

[Casimiro Noteví]

Crea un proyecto nuevo.
Añade un botón, 3 labels y un memo, por ejemplo.
En el click del botón pega esto:

Código Delphi [-]
procedure TForm1.bt1Click(Sender: TObject);
const
  crlf = chr(13)+chr(10);
var
  F : TextFile;
  cLin : string;
  iPos : Integer;
  cCampo1, cCampo2, cCampo3 : string;
begin
  // Aquí deberías conectar con tu base de datos y preparar el insert, etc.
  //
  // Ahora empezamos a leer el fichero línea a línea y vamos insertando en la BD.
  AssignFile(F,'c:\DGII_RNC.TXT');
  Reset(F);
  ReadLn(F,cLin);
  while not eof(F) do
  begin
    // primer dato, hasta el primer |
    iPos := Pos('|',cLin);
    cCampo1 := Copy(cLin,0,iPos-1);
    // Cortamos de la línea el primer dato que hemos usado
    cLin := copy(clin,iPos+1,length(cLin));
    // leemos hasta el siguiente |
    iPos := Pos('|',cLin);
    cCampo2 := Copy(cLin,0,iPos-1);
    // Cortamos de la línea ese dato que hemos usado
    cLin := copy(clin,iPos+1,length(cLin));
    // buscamos el siguiente |
    iPos := Pos('|',cLin);
    // Cortamos de la línea porque no nos sirve
    cLin := copy(clin,iPos+1,length(cLin));
    // buscamos el siguiente |
    iPos := Pos('|',cLin);
    cCampo3 := Copy(cLin,0,iPos-1);
    // lo mostramos en pantalla, si queremos
    lb1.Caption := ccampo1;
    lb2.Caption := ccampo2;
    lb3.Caption := ccampo3;
    // lo añado a un memo, tú deberías guardar los datos en tu base de datos
    mmo1.Lines.Add(ccampo1+crlf+ccampo2+crlf+ccampo3+crlf);
    // y pasamos a leer la siguiente línea
    ReadLn(F,cLin);
  end;
  CloseFile(F);
end;

Los labels los he nombrado: lb1, lb2 y lb3
El botón lo he nombrado: bt1
El memo lo he nombrado: mmo1