Traspaso de datos de archivos dat (visual basic) creo a paradox

[[Lepe]]

Los intros no significan nada, bien puede ser el contenido de un Memo, ayudaría un poco ver los labels que tienen en el programa actual, ya que la cadena

942- Cantabria      13203952-C942/700-447                                                  1                   1  1                   1

No tenemos ni idea de como llamarle, es decir qué nombre ponerle cada uno de los "1" que aparecen.

Además por el nombre quizás pudieramos identificar cuantos caracteres lleva o incluso el tipo de datos, Boolean, entero o caracter.

En principio, si lleva un patrón:
- 20 espacios en blanco (la pregunta es POR QUÉ LLEVA ESOS ESPACIOS)
- fecha en formato dd/mm/yyyy
- 2 caracteres (01)
- 3 caracteres que guardan un número. No pondría el campo como integer, ya que según veo, está todo guardado como texto.
- 4 caracteres en blanco (que puede pertenecer al campo anterior o al nombre. En principio yo uniría este campo con el anterior, pero lo hago sin ton ni son).
- 40 caracteres para el apellido
- 20 para el nombre
- 40 letras para la direccion
- 30 para ¿el código postal y ciudad?
- 20 para la provincia (incluido el número Ej: "942 - Cantabria")

y el resto... pues es lo que decía, necesitamos saber, al menos, el nombre de los campos. Hasta el momento yo haría el registro como:

Código Delphi [-]
type Tdatos = record
  vacio : string[20];
  fecha: string[10];
  campo1:string[2];
  campo2:string[7]; 
  apellidos:string[40];
  nombre: string[20];
  direccion:string[40];
  cpCiudad:string[30];
  provincia:string[20];
end;

Se trataría de ir leyendo el archivo ese número fijo de caracteres. Hace tiempo que no lo uso, pero sería algo así como:

Código Delphi [-]
var F:TextFile;
     datos : Tdatos;
begin
AssignFile(F, 'ruta completa del archivo y extension');
read (f,datos.vacio,20); // el número es el ancho de cada campo
read(f,datos.fecha, 10);
read(f, datos.campo1, 2);
read(f, datos.campo2, 7);
....
CloseFile(F);

Pero vamos, si son pocos datos le dices que los meta de nuevo y te olvidas de armar este puzzle. Si necesitas implementarlo, danos toda la info que puedas sobre el programa, campos, labels, etc.

Saludos