generar archivo CSV
 

Estimados Colegas. Les comento lo que intento hacer. Tengo una base de datos en DBASE y cada dia necesito generar un archivo CSV. Este archivo lo puedo generar con algunas aplicaciones comerciales. Sin embargo me gustaria automatizar el Proceso. Aqui en el foro no he encontrado nada acerca de Archivos CSV, la busqueda no arroja ningun resultado.

Me imagino que el Procedimiento ha de ser el Siguiente:

Abro la base de datos
Ejecuto un Barrido de todos los registros del dataset con un ciclo.
los campos leidos, los voy colocando en un Memo.
Una ves terminado el Barrido, Vacio el MEmo a un Archivo.

Este es el Metodo Correcto para Generar Archivos CSV?? o hay alguna otra alternativa?

Gracias por su Ayuda.

El método que citas es básicamente el indicado, salvo que no requieres un memo sino que basta un objeto TStringList. Por cada registro tendrás que leer campo por campo para formar una cadena de valores separados por coma y será esa cadena la que agregues al StringList.

Pero otra opción que puedo recomendarte para facilitar las cosas, es que busques en la página del compañero delphi.com.ar, las componentes ExportSuite, que, además de ser gratuitas y, creo, con código incluido, te permiten conectar tu componente Table donde esté tu tabla DBase, a una componente DataToAscii, ajustar propiedades (caracter de separador, caracter delimitador, etc) y usar su método SaveToFile para generar el CSV.

// Saludos

Muchisimas Gracias por tu Ayuda Roman. voy Checar ese componente del que me hablas.

Roman: Esaso componentes Texportsuite son una maravilla, te agradezco el tip. Antes para realizar el Archivo CSV me llevaba 5 minutos aproximadamente, debido a que habia que colocarle el filtro a la Base de Datos, ya que no todos los Registros nos interesaban, habia que seleccionar que campos nos interesaba, el orden, luego habia que indicar el separador , y asi sucesivamente. Ahora, con un solo click Hago todo esto. Muchas Gracias de nuevo