¿Me puedes decir como extraer un archivo de texto confeccionado con el programa Visual Fox Pro?
Gracias por la ayuda para crear el archivo de texto... Ahora me podrias facilitar un ejemplo de como extraer o leer el archivo de texto ... De antemano gracias por la ayuda que puedas falicitarme
1 Respuesta
Respuesta de jsam
1
Dusculpa, pero tuve algonos problemas con mi cuenta, espero no sea demasiado tarde
El ejemplo siguiente usa FREAD( ) para mostrar el contenido de un archivo. Si el archivo está vacío, se muestra un mensaje.
* TEST.TXT must exist -- you can create this file
* using Notepad.
Local gnFileHandle,nSize,cString
gnFileHandle = FOPEN("test.txt")
* Seek to end of file to determine the number of bytes in the file
nSize = FSEEK(gnFileHandle, 0, 2) && Move pointer to EOF
IF nSize <= 0
* If the file is empty, display an error message
WAIT WINDOW "This file is empty!" NOWAIT
ELSE
* If file is not empty, the program stores its contents
* in memory, then displays the text on the main Visual FoxPro window
= FSEEK(gnFileHandle, 0, 0) && Move pointer to BOF
cString = FREAD(gnFileHandle, nSize)
? CString
Endif
= FCLOSE(gnFileHandle) && Close the file
Para cualquier otra duda me encuentro a tus ordenes.
El ejemplo siguiente usa FREAD( ) para mostrar el contenido de un archivo. Si el archivo está vacío, se muestra un mensaje.
* TEST.TXT must exist -- you can create this file
* using Notepad.
Local gnFileHandle,nSize,cString
gnFileHandle = FOPEN("test.txt")
* Seek to end of file to determine the number of bytes in the file
nSize = FSEEK(gnFileHandle, 0, 2) && Move pointer to EOF
IF nSize <= 0
* If the file is empty, display an error message
WAIT WINDOW "This file is empty!" NOWAIT
ELSE
* If file is not empty, the program stores its contents
* in memory, then displays the text on the main Visual FoxPro window
= FSEEK(gnFileHandle, 0, 0) && Move pointer to BOF
cString = FREAD(gnFileHandle, nSize)
? CString
Endif
= FCLOSE(gnFileHandle) && Close the file
Para cualquier otra duda me encuentro a tus ordenes.
