No puedo extraer datos de una base de datos antigua

[zeta2]

Estimados compañeros, tengo un problema con la extracción de datos de una base de datos antigua. Su extensión es .fil y creo que es de cobol.

Alguien sabe como puedo acceder a los datos de ese archivo? Si lo abro a través de un block de notas los datos aparecen muy desordenados, sin un patrón que indique cuales son las columnas o las filas (espacios, comas o punto y coma) lo que impide exportarlos en excel o access.

Les dejo el siguiente enlace donde podrán obtener un ejemplo de archivo .fil por si quieren probar.

https://drive.google.com/file/d/0B86...ew?usp=sharing

La información corresponde a libros de una biblioteca.

Espero que puedan ayudarme.

Gracias.

[[movorack]]

Es posible que lo que ahí tengas sea un archivo de record.

Si es así, Para leerlo debes usar la estructura específica que corresponde al archivo.


En este artículo de Delphi Basics puedes leer la parte de Reading and writing to typed binary files

Mucho mas explicado en este otro artículo

[zeta2]

Voy a probar, pero si alguien conoce un método más sencillo, es bienvenida la respuesta XD.

[zeta2]

Claro, con este método puedo mostrar los datos como deben estar, el tema es obtenerlos y migrarlos a otra base más moderna. Existe algún gestor de base de datos que pueda interpretarlo con sus columnas y filas?

[Young]

Así a la rápida con un editor de texto, el largo del registro es de 206 caracteres, terminando con una letra que debe ser algún tipo de estado. Lo demás es ir identificando los campos con su largo correspondiente.

Saludos.

[roman]

Muy cierto, terminan en C o D (Deleted?). Y parece haber muchos registros en blanco. Pero es un poco confuso cuáles serían los campos. Algunos parecen claros: código, autor, editorial, etc. Pero hay datos que se "atraviesan" en algunas líneas o filas donde algún campo no empieza en la misma columna que en la mayoría de filas.

Ayudaría saber más del contexto de la base. ¿Se sabe cuáles son los campos?

En todo caso, no parece ser un archivo binario. Todos los caracteres lucen como ASCII.

LineComment Saludos

[orodriguezca]

Lo ideal sería tener acceso al código fuente COBOL que procesa ese archivo y obtener la estructura del archivo de la FILE SECTION de la DATA DIVISION.

En general los programas COBOL lo que procesan son archivos de texto plano, no hay gestor de bases de datos (a menos que sea un AS400). Si se tiene el fuente se debe revisar en la FILE SECTION la FD (File description) del archivo.

Si no se tiene el fuente solo queda suponer cual es la estructura del archivo como ya lo han mencionado.

[zeta2]

La verdad no encontré el encabezado de la base.

Les dejo el soft completo, yo no pude reproducirlo ya que corría bajo win98.

Estoy por armar una máquina virtual.

Sigo intentando.

https://drive.google.com/drive/folde...k0?usp=sharing

[Casimiro Notevi]

Ese fichero tiene 0 bytes, está vacío.

[Casimiro Notevi]

Vale, ahora veo que en algunos sí hay datos.

[roman]

¿Vacío? ¿Cuál? El que puso primero no está vacío y tiene muchos registros.

LineComment Saludos

[zeta2]

yo veo todo bien...

[Casimiro Notevi]

Empezado por roman

¿Vacío? ¿Cuál? El que puso primero no está vacío y tiene muchos registros.
LineComment Saludos

Empezado por zeta2

yo veo todo bien...

Por algún motivo no lo descargaba, se quedaba con cero bytes. Después descargó bien.

[zeta2]

yo veo todo bien...

[[movorack]]

Si!. No es un archivo binario. Es solo texto.

Hice el ejercicio y pude pasarlo del archivo a un ClientDataSet pero tuve problemas para cargar todas las líneas.

Básicamente cargué el archivo en un StringList, luego a la línea que carga le voy dando manejo con los posibles tamaños de campos y eso lo voy subiendo al dataset.

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
  const
    C_LENREG = 205;
  var
    lStFile : TFileName;
    lSlFile : TStrings;
    lStLineas : TStrings;
    lLinea : String;
begin
  Memo1.Lines.Clear;
  CdsTemp.EmptyDataSet;

  lStFile := StringReplace(ParamStr(0), '.exe', '.fil', [rfIgnoreCase, rfReplaceAll]);
  if not FileExists(lStFile) then
    Exit;

  TSpeedButton(Sender).Down := True;
  FLeer := True;

  lSlFile := TStringList.Create;
  lStLineas := TStringList.Create;
  try
    lSlFile.LoadFromFile(lStFile);
    lSlFile[0] := StringReplace(lSlFile[0], #0, ' ', [rfIgnoreCase, rfReplaceAll]);
    while (Length(lSlFile[0]) > 1) and FLeer do
    begin
      lLinea := Copy(lSlFile[0], 1, C_LENREG);
      lStLineas.Add(lLinea);
      Memo1.Lines.Add(lLinea);

      if CdsTemp.State in [dsEdit, dsInsert] then
        CdsTemp.Cancel;

      CdsTemp.Append;
      CdsTempField01.AsString := Copy(lLinea, 001, 06);
      CdsTempField02.AsString := Copy(lLinea, 007, 58);
      CdsTempField03.AsString := Copy(lLinea, 065, 25);
      CdsTempField04.AsString := Copy(lLinea, 090, 50);
      CdsTempField05.AsString := Copy(lLinea, 140, 18);
      CdsTempField06.AsString := Copy(lLinea, 158, 11);
      CdsTempField07.AsString := Copy(lLinea, 169, 10);
      CdsTempField08.AsString := Copy(lLinea, 179, 06);
      CdsTempField09.AsString := Copy(lLinea, 185, 20);
      CdsTempField10.AsString := Copy(lLinea, 205, 01);
      CdsTemp.Post;

      lSlFile[0] := Copy(lSlFile[0], Length(lLinea) + 1, Length(lSlFile[0]));

      Application.ProcessMessages;
      Sleep(250);
    end;
  finally
    FreeAndNil(lStLineas);
    FreeAndNil(lSlFile);
  end;
end;

Adjunto el fuente del ejercicio. Para usarlo debes modificar el nombre del archivo ".fil" a Project1.fil y colocarlo en el directorio del ejecutable. "Project1.fil"

[cloayza]

Otra opción podría ser:
Coloca un TMemo en un form, agregas un boton y copias este código al evento del botón.

Código Delphi [-]
{          02 B1-FECHIN     PIC 9(6).
           02 B1-TITULO     PIC X(58).
           02 B1-AUTOR1     PIC X(25).
           02 B1-AUTOR2     PIC X(25).
           02 B1-AUTOR3     PIC X(25).
           02 B1-EDITOR     PIC X(18).
           02 B1-EDICION.
              03 B1-ANIO    PIC 9(4).
              03 B1-VEZ     PIC 9(2).
           02 B1-ASIGNATURA PIC X(15).
           02 B1-TOPO.
              03 B1-UB      PIC X(3).
              03 B1-EST     PIC X(3).
          02 B1-COLECCION   PIC X(20).
          02 B1-PROCEDENCIA PIC X.

}
procedure TForm1.Button1Click(Sender: TObject);
type
   TDatos=record
      Fecha:array[0..5] of AnsiChar;
      Titulo:array[0..57] of AnsiChar;
      Autor1:array[0..24] of AnsiChar;
      Autor2:array[0..24] of AnsiChar;
      Autor3:array[0..24] of AnsiChar;
      Editor:array[0..17] of AnsiChar;
      EdicionAnio:array[0..3] of AnsiChar;
      EdicionVez:array[0..1] of AnsiChar;
      Asignatura:array[0..14] of AnsiChar;
      TopoUB:array[0..2] of AnsiChar;
      TopoEst:array[0..2] of AnsiChar;
      Coleccion:array[0..19] of AnsiChar;
      Procedencia:AnsiChar;
   end;
var
  F: TFileStream;
  t:TDatos;
begin
     FillChar(t,SizeOf(t),0);

     Memo1.lines.BeginUpdate;

     F := TFileStream.Create('bibli01.fil', fmOpenRead);

     while F.Position < F.Size do
     begin
          F.Read(t, SizeOf(t));
          Memo1.Lines.Add(Format('%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|',
           [t.Fecha,t.Titulo,t.Autor1,t.Autor2,t.Autor3,t.Editor,t.EdicionAnio,t.EdicionVez,
           t.Asignatura,t.TopoUB,t.TopoEst,t.Coleccion,t.Procedencia]));
     end;

     F.Free;
     Memo1.lines.EndUpdate;
end;

Ojala te ayude en algo

[Casimiro Notevi]

Empezado por webmasterplc

Una consulta...

Hombre, con cerca de 200 mensajes en los foros... ya sabes lo que tienes que hacer, por favor

[zeta2]

Son unos capos chicos, llego a casa, pruebo y les cuento!!!

[roman]

Empezado por cloayza

Código Delphi [-]
{          02 B1-FECHIN     PIC 9(6).
           02 B1-TITULO     PIC X(58).
           02 B1-AUTOR1     PIC X(25).
           02 B1-AUTOR2     PIC X(25).
           02 B1-AUTOR3     PIC X(25).
           02 B1-EDITOR     PIC X(18).
           02 B1-EDICION.
              03 B1-ANIO    PIC 9(4).
              03 B1-VEZ     PIC 9(2).
           02 B1-ASIGNATURA PIC X(15).
           02 B1-TOPO.
              03 B1-UB      PIC X(3).
              03 B1-EST     PIC X(3).
          02 B1-COLECCION   PIC X(20).
          02 B1-PROCEDENCIA PIC X.

}

¿Esta es la descripción de la tabla? ¿En qué archivo la encontraste?

LineComment Saludos

[[movorack]]

Con el método de cloayza se lee muy bien el archivo.