FoxPro/Visual FoxPro - Archivo de Texto

 
Vista:

Archivo de Texto

Publicado por Seba (31 intervenciones) el 29/10/2003 14:36:53
Hola a todos: necesito ayuda con un archivo de texto, lo único que tengo que hacer es crear un archivo de texto y luego grabar datos dentro de él, pero no me funciona ni fputs() ni fwrite(), lo que estoy intentando hacer es lo siguiente:'
FCREATE('sistema.txt',0)
FOPEN('sistema.txt')
FWRITE('sistema.txt','Probando')
FCLOSE('sistema.txt')

pero el archivo de texto me queda vacío.

Muchas gracias...

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Archivo de Texto

Publicado por Marcos A. (263 intervenciones) el 29/10/2003 14:46:28
Hola.
Yo hago lo siguiente:

SET PRINTER OFF
SET CONSOLE OFF
SET DEVICE TO PRINTER
SET PRINTER TO ARCHIVO.TXT
@1, 0 say "nombre"
@1,10 say "apellido"
@1,20 say "direccion"
SET PRINTER OFF
SET DEVICE TO SCREEN
SET CONSOLE ON
SET PRINTER TO

con esto creas el ARCHIVO.TXT que contiene nombre,apellido,direccion
ademas lo puedes incluir en un do while con mas instruccuiones. etc.

cuentame como te resulto.

saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Archivo de Texto

Publicado por carlos lott (298 intervenciones) el 29/10/2003 16:24:13
IF FILE('c:\TEXT\ARCHIVO.TXT') && ¿Existe el archivo?
maficta= FOPEN('c:\TXT\ARCHIVO.TXT',12) && Si existe, abrir para lectura-escritura
ELSE
maficta= FCREATE('c:\TXT\ARCHIVO.TXT') && De lo contrario, lo crea.
nombre = "XXX"
sucursal = "ZZZ"
CIUDAD = "PPP"
indica = "0"
=Fputs(maficta,indica,20)
=Fputs(maficta,nombre,55)
=Fputs(maficta,sucursal,4)
=fwrite(maficta,CIUDAD,4)
=FCLOSE(maficta)
ENDIF

SALUDOS

CARLOS LOTT
MARACAY-VENEZUELA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Archivo de Texto

Publicado por josegil (19 intervenciones) el 29/10/2003 16:26:04
Create un Reporte y luego envialo a un Archivo de texto, Ej.:

REPORT FORM ?Reporte TO FILE ?Archivo_TXT [ASCI]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar