Clipper/FiveWin - crear un file texto, desde clipper 5.3

Estimado Sr.

Como hago yo, para que desde mi programa hecho en
clipper 5.3 pueda grabar en el directorio x que yo indique
un archivo que no exista , yo lo voy a crear, y debe de
ser un archivo texto.

ejemplo yo quiero grabar en un archivo de texto la fecha

o sea que el texto se llame hoy.txt

Lo que va a tener adentro sera 01/12/2001 como ejemplo
y luego posteriormente, en el futuro deseo recuperar ese
dato, y leer ese archivo de texto. como lo puedo leer
despues.

saludos

Jose Cabrera
[email protected]

Hola

Para crear un archivo texto TXT a partir de un archivo DBF yo hago lo siguiente.
COPY ALL TO ARCHI SDF WHILE !EOF()

donde ARCHI sera el archivo TXT a crear con todos los registros del archivo DBF que se encuentre abierto en ese momento.
Para copiar algunos registros del archivo seria:
Copy fields Campo1,Campo2 to ARCHI SDF WHILE !EOF()

Espero te sirva de algo

Saludos...

La solucion a tu problema es sencilla y compleja a la vez dependiendo de lo que pretendas hacer con el fichero.

Las funciones file(), fOpen(), fCreate(), fClose(), fWrite(), fReadStr(), fError() te ayudan a hacer lo que tu pretendes, que no es mas que manejar un fichero binario sin estructura. Dependiendo de lo que quieras sera mas o menos complejo.

Ejemplo de lo que tu pretendes.

If File("C:\Fechas\Fecha.txt") // Miro para ver si ya existe el fichero
// si existe lo abro
nFichero:= fOpen("C:\Fechas\Fecha.txt", FO_READWRITE )
else
// si no existe lo creo
nFichero:= fCreate("C:\Fechas\Fecha.txt", FO_NORMAL )
endif
// Escribo la fecha de hoy en el
if fWrite ( nfichero, tran(date(),"##-##-##"),8)
fClose (nfichero)
Else
?"Error escribiendo en el fichero")
endif

Como veras puede ser sencillo o complejo dependiendo de hasta donde quieras llegar.

De todas maneras en los ejemplos que vienen con Clipper tienes el codigo fuente del programa PE.PRG en el cual veras un ejemplo de como trabajar con fichero binarios. Yo me he estudiado este ejemplo, lo he modificado a mi gusto y siempre lo añado a mis programas para que el usuario pueda editar, modificar e imprimir cualquier fichero de texto desde el programa. Tambien lo utilizo a modo de "Presentacion preliminar" de impresion y da mucho juego a los programas.

Un saludo y a tu disposicion para aclarar las dudas que te puedan surgir.