Migrar Registros

[feliz-58]

Empezado por Casimiro Notevi

Pues eso es, un fichero TXT y encontrar palabras, en este caso una palabra de longitud 1.
Ya sabes, abres el TextFile y la conexión a la BD.

 Lees línea a línea hasta eof del fichero.
   Primer campo hasta el primer |
   Segundo campo hasta el segundo |
   Saltas un |
   Tercer campo hasta el siguiente |
   Guardas en la BD los campos
Finalmente, cierras el fichero.

Y listo.

Hasta ahora buscando solo tengo esto, que es para leer caracter por caracter, pero no se como hacer que haga lo que quiero.

Código Delphi [-]
var
Lista: TStringList;
cadena ,Registro,cadena2:string;
I, k, j: Integer;
begin
  Lista:= TStringList.Create;
  try
   Lista.LoadFromFile('c:\RNC.txt');
   for I := 0 to Lista.Count - 1 do
   begin
    cadena:= Lista.Strings[i];
    k:=Length(cadena);
    for j := 0 to k do
     begin
     cadena2:=Copy(cadena,j,1);
     if cadena2='|' then
      begin
       ShowMessage(Registro);
       Registro:='';
      end
     
      else
       begin
       Registro:=Registro + cadena2;
       end
 
    end;
 
   end;
  
  finally
    Lista.Free;
 end;

end;

Si supiera como hacerlo no estaría aquí...
Mi fuerte es la reparación de laptops, Lcd, plasmas, y alguna que otra cosa dentro de la electronica, no la elaboración de código, la elaboración de código lo hago porque me gusta aprender programación.

[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

[feliz-58]

Wow, funciona excelente Maestro, Gracias por compartir, que delphi usas?

[Casimiro Noteví]

Es un delphi 2007, pero es un código estandar, funcionará en todos los delphi.

[feliz-58]

Empezado por Casimiro Notevi

Es un delphi 2007, pero es un código estandar, funcionará en todos los delphi.

No lo pregunto por el código, una vez tenia un delphi que era el 2007 pero una versión mas "didactica", cuando comenzabas a escribir código te salia como una ayuda predictiva. y me acorde de ellos porque en esa versión los componentes cuando los ponías en el formulario aparecían con otro nombre, en la versión normal salen como: Label1, en esa que te menciono salen lb1.

Referente al código, ya hice la importación, y le agregue dos campos mas, en total, se importaron 3,203,126

[Casimiro Noteví]

Lo del renombrado es porque lo tengo configurado así con el asistente cnpack instalado.

[feliz-58]

Empezado por Casimiro Notevi

Lo del renombrado es porque lo tengo configurado así con el asistente cnpack instalado.

Ya lo instale, lo que mencione era algo parecido, gracias.