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
Código:
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); 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