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

[Vero_rm80]

si ya se que tengo que tener paciencia .... jejeje.

ahh otra cosa el archivo que he subido es el de clientes,

Y de verdad muchisimas gracias, sois unos soles

[[egostar]]

Hola Vero, una pregunta

Estuve checando el archivo que tienes y encontre algunos ENTER dentro del mismo, la pregunta es, ¿este archivo es el original? ¿no lo editaste y le diste ENTER en algunas partes del archivo?

Porque los ENTER que existen no nos dan una pauta para saber donde termina una linea, es decir, hay lineas de 58169, 27, 9, 57548 Caracteres entre otras lineas de caracteres.

Esto no tiene ningún sentido ni nos ayuda mucho.

Saludos.

[AGAG4]

Es mejor que consigas la estructura del archivo, no batallarás nada....

[Vero_rm80]

hola a todos, muchas gracias por vuestras contestaciones, he estado de vacaciones y no he podido contentaros.
sobre lo de los intros ya me he dado cuenta y el archivo es el original, no esta modificado

[[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

[[Lepe]]

Me ha faltado decir cómo he sacado la estructura. Creo que es lo más importante:

- Abro con el bloc de notas, Formato -> Ajuste de línea desactivado !!!
- Pulso la tecla SHIFT y le voy dando con el cursor derecho mientras cuento las veces que lo he pulsado.
- Paro de contar cuando encuentro un dato "nuevo".
- Contrasto esa longitud que acabo de contar con los demás Clientes. Para buscar el siguiente cliente busco la siguiente fecha en formato dd/mm/yyyy (solo hay una fecha con ese formato).

Hay editores como el JetEdit, o incluso abriendolo con delphi, que te dicen la columna en la que estas, y solo tienes que restar... pero eso es otra historia .

Edito: En realidad no hay "separador entre registros", simplemente escribe cada dato, uno detrás de otro, rellenando con espacios en blanco el ancho de cada campo.

Lo más dificil de detectar son los campos vacíos consecutivos, ya que si no tiene nada (solo espacios), pues no se sabe si son dos campos de longitud 20, o bien uno de 40.

Saludos