Autor Tema: ayuda con escritura de archivo  (Leído 3292 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado cedlink

  • Sv Jr.
  • **
  • Mensajes: 62
ayuda con escritura de archivo
« : enero 17, 2015, 12:35:35 am »
Hola amigos, queria pedirles un poco de ayuda.

Necesito guardar ciertos datos en un archivo de texto de momento lo hago asi

SELECT DETALLE
SCAN
IF FILE('c:\archivo.txt') = .T.
cArchivo2 = FOPEN('C:\archivo.txt',2)
opc = 1
ELSE
cArchivo2 = FCREATE('C:\archivo.txt',0)
opc = 2
ENDIF

strCadena = "Lo que quiero guardar, linea n"

IF opc = 1
**Es la parte que no se como hacer
ELSE
FWRITE(cArchivo2,strCadena)
ENDIF
FCLOSE(cArchivo2)

ENDSCAN

Como hacer para que si ya existe el archivo, no lo sobre escriba, sino que se agregue al final y quede algo asi:

linea 1
linea 2
linea 3

De ante mano muchas gracias

Desconectado mega

  • Sv Member
  • ***
  • Mensajes: 346
Re:ayuda con escritura de archivo
« Respuesta #1 : enero 17, 2015, 01:40:17 am »
Hola amigos, queria pedirles un poco de ayuda.

Necesito guardar ciertos datos en un archivo de texto de momento lo hago asi

SELECT DETALLE
SCAN
IF FILE('c:\archivo.txt') = .T.
cArchivo2 = FOPEN('C:\archivo.txt',2)
opc = 1
ELSE
cArchivo2 = FCREATE('C:\archivo.txt',0)
opc = 2
ENDIF

strCadena = "Lo que quiero guardar, linea n"

IF opc = 1
**Es la parte que no se como hacer
ELSE
FWRITE(cArchivo2,strCadena)
ENDIF
FCLOSE(cArchivo2)

ENDSCAN

Como hacer para que si ya existe el archivo, no lo sobre escriba, sino que se agregue al final y quede algo asi:

linea 1
linea 2
linea 3

De ante mano muchas gracias

no se nada sobre este lenguaje pero encontré esto:


Cita de: http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-fox-pro/respuestas/1842072/crear-un-archivo-de-texto
http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-fox-pro/respuestas/1842072/crear-un-archivo-de-texto
fcreate("c:\archivo.txt")
Después para ingresar los datos usas la función fputs() los parámetros son el archivo y los datos que vas a poner, esta función una vez que escribe los datos en el archivo baja la linea y se va al inicio (retorno de carro),
arch=fcreate("c:\archivo.txt")
fputs(arch,"3780136|MARTINEZ|31|")
Y por ultimo cerras el archivo con fclose()
Fclose(arch)
Y listo. Ahí crea tu archivo txt.
En el fputs() podes cargar también datos de tu tabla pero tienes que pasar siempre en forma de caracteres.