problema al leer un archivo
Publicado por ovelit (173 intervenciones) el 09/04/2008 00:56:02
saludos foxeros
tengo el siguiente codigo que me crea un archivo y luego visualizo lo que tengo en ese archivo.
pero cuando en la linea 4 de codigo donde este el create creo el archivo de solo lectura/read y coloco lo siguiente
gnErrFile = FCREATE('c:prueba.oar',1)
osea en ves de 0 le coloco 1 no me deja visualizar lo q tengo en el archivo porq si el archivo es creado de solo lectura, osea que puedo ver lo q tiene el archivo
o que tengo que hacer para visualizar este tipo de archivo.
IF FILE('c:prueba.oar')
gnErrFile = FOPEN('c:prueba.oar',12)
ELSE
gnErrFile = FCREATE('c:prueba.oar',0)
ENDIF
IF gnErrFile < 0
WAIT 'Imposible abrir o crear archivo de resultados' WINDOW NOWAIT
=FCLOSE(gnErrFile)
ELSE
=FWRITE(gnErrFile, 'archivo de prueba')
ENDIF
=FCLOSE(gnErrFile)
gnErrFile = FOPEN('c:prueba.oar',12)
nSize = FSEEK(gnErrFile, 0, 2)
= FSEEK(gnErrFile, 0, 0)
vari=FREAD(gnErrFile,nSize)
IF vari=ALLTRIM("archivo de prueba") then
MESSAGEBOX('mosca')
? vari
ENDIF
=FCLOSE(gnErrFile)
tengo el siguiente codigo que me crea un archivo y luego visualizo lo que tengo en ese archivo.
pero cuando en la linea 4 de codigo donde este el create creo el archivo de solo lectura/read y coloco lo siguiente
gnErrFile = FCREATE('c:prueba.oar',1)
osea en ves de 0 le coloco 1 no me deja visualizar lo q tengo en el archivo porq si el archivo es creado de solo lectura, osea que puedo ver lo q tiene el archivo
o que tengo que hacer para visualizar este tipo de archivo.
IF FILE('c:prueba.oar')
gnErrFile = FOPEN('c:prueba.oar',12)
ELSE
gnErrFile = FCREATE('c:prueba.oar',0)
ENDIF
IF gnErrFile < 0
WAIT 'Imposible abrir o crear archivo de resultados' WINDOW NOWAIT
=FCLOSE(gnErrFile)
ELSE
=FWRITE(gnErrFile, 'archivo de prueba')
ENDIF
=FCLOSE(gnErrFile)
gnErrFile = FOPEN('c:prueba.oar',12)
nSize = FSEEK(gnErrFile, 0, 2)
= FSEEK(gnErrFile, 0, 0)
vari=FREAD(gnErrFile,nSize)
IF vari=ALLTRIM("archivo de prueba") then
MESSAGEBOX('mosca')
? vari
ENDIF
=FCLOSE(gnErrFile)
Valora esta pregunta


0