Capturar datos desde archivo de texto

[ContraVeneno]

Revisando para quitarme la curiosidad, dentro de las Jedi, también tienes el componente TJvCsvDataSet (en la pestaña Jv Data Access), el cuál se supone lo enlazas a un archivo separado por comas. Lo interesante, es que este componente tiene una propiedad llamada "Separator", al cual le puedes definir el caracter separador, que de entrada, tiene el caracter ",".

Supongo que si le defines como separador un espacio (#32), no deberías tener problemas para leerlo directamente. Digo supongo porque nunca lo he utilizado.

[ContraVeneno]

Pues sí, fue realmente sencillo utilizando el compontente TjvCSVDataset.

Colocas este componente en tu formulario o en tu módulo de datos, colocas un Datasource enlazado al jvCSVDataset y un DBGrid enlazado al Datasource.

Trabajo normal

Lo único que tuve que hacer, fue definir los campos que quiero que lea, le defines el nombre, el tipo y la longitud (cuando aplica). Esto lo haces en la propiedad: CsvFieldDef. Tiene un editor bastante sencillo para definir los campos.

Tienes la propiedad FileName donde le defines cuál archivo quieres leer.

Y nada más hay que tener cuidado con la propiedad: HasHeaderRow
Si tienes los nombres de los campos como primer renglón en tu archivo, entonces HasHeaderRow := True;

Pero según tu ejemplo no lo tienes, así que HasHeaderRow := False;

La propiedad Separator := #32;

Ya solo faltaría activar el componente TjvCSVDataset (en su propiedad Active) y listo, ya te lee tu archivo y te lo pone directamente en un DBGrid.

[[BlueSteel]]

Gracias

ContraVeneno = Antidoto... ???

Me funciono super.. ahorita tratare de realizar algunos cambios para poder capturar diferentes archivos con el mismo formato.. y poder traspasar a una base de datos...

[[BlueSteel]]

Hola

Resuelto el problema anterior, me toca preguntar, como borro el contenido o le asigno una marca al archivo para no traspasar nuevamente los datos ?

no se si me explique bien...

como el archivo contiene eventos de un Reloj Control Biométrico, el proceso que realizo es cargar los eventos, luego los tengo que traspasar a una Tabla para su posterior manipulación... pero una vez que traspase todos los eventos, la idea es que no vuelva a leer dicho archivo...

Entre las alternativas que se me ocurren son las sgtes:

- Eliminar el contenido del archivo
- Renombrar la extención del archivo... de *.txt a *.ok
- borrar el archivo....
- agregar una cabecera en el archivo... pero esto me puede generar que el componente no lo lea
- agregar una columna con el campo de verificación .. si el estado es 0 se puede traspasar.. de lo contrario... se puede leer pero no traspasar ?...


Bueno.. saludos...

ahh.. la pregunta es cual seria el metodo más recomendado...

[[seoane]]

Yo para un caso similar utilice la función MoveFile, es decir, primero renombro el archivo y luego lo proceso. Te preguntaras porque renombrarlo y no leerlo y borrarlo, pues muy sencillo, si la función MoveFile tiene éxito quiere decir que ningún otro programa esta usando el archivo, asi evitamos "tocar" el archivo mientras el programa del reloj lo esta usando.

En resumen, seria algo así:

Código Delphi [-]
  while not MovFile('origen.txt','destino.txt') do
    Sleep(10);
  // Ahora procesamos el archivo
  
...

  // Y al final lo borramos
  DeleteFile('destino.txt');

[[BlueSteel]]

Gracias seoane

es una buena alternativa....la provare

Salu2

[ContraVeneno]

lo que yo haría sería poner un índice único en la base de datos, igual y que contenga todos los campos, aunque supongo que con contener la fecha y hora sería suficiente.

Al traspasar la información, capturo la excepción de llave duplicada y listo.
De esa forma, no modifico el archivo para nada. Y el proceso de capturar la excepción es bastante sencillo.