SoloCodigo

Programación General => Visual FoxPro => Mensaje iniciado por: piraquive en Domingo 25 de Mayo de 2008, 07:16

Título: Crear Txt
Publicado por: piraquive en Domingo 25 de Mayo de 2008, 07:16

Buenas a todos, necesito generar un archivo txt con una informacion que capturo de una base de datos.  Alguien me podria dar una luz de como generar un archivo txt.

Mil Gracias.

Título: Re: Crear Txt
Publicado por: emuller en Miércoles 28 de Mayo de 2008, 03:55

Primero, para crear un archivo puedes utilizar FCREATE:

   FCREATE(nombreDeArchivo [, nAtributoDeArchivo])

En nombreDeArchivo puedes colocar la ruta completa o la relativa al path que tengas establecido en el entorno. Si el archivo existe lo sobreescribe sin ningún tipo de warning. Devuelve el número para su manejo (handler) si no hubo ningún error. Si hubo algún error devuelve -1

Si no queres reemplazarlo, sino que queres agregar a uno creado anteriormente deberias utilizar la función FILE(nombreDeArchivo [,flag]) que devuelve .T. si el archivo existe o .F. en caso contrario. Si no existe lo creas con FCREATE y si existe lo abres con FOPEN:

   FOPEN(nombreDeArchivo [, nAtributoDeArchivo])

También devuelve el handler o -1 en caso de error

Recuerda guardar el número manejo (handler) en una variable para poder utilizar el archivo abierto on otras funciones.

Para escribir en el archivo utiliza FWRITE, FPUTS y FSEEK

Consulta la ayuda del fox para obtener una info detallada de estas funciones.

Por ejemplo, para abrir el archivo "texto.txt" y escribir la cadena "cadena de texto" al final del archivo sería algo así (al archivo lo abre para lectura y escritura y sin uso de buffer):

Código: Text

1. LOCAL varHandler
2. IF FILE("texto.txt") THEN
3.     varHandler = FOPEN("texto.txt",12)
4. ELSE
5.     varHandler = FCREATE("texto.txt")
6. ENDIF
7.  
8. IF varHandler != -1 THEN
9.     FSEEK(varHandler,0,2)
10.     FPUTS(varHandler,"cadena de texto")
11.     FCLOSE(varHandler)
12. ELSE
13.     && algún mensaje de error
14. ENDIF
15.