Archivos ascii
Tengo archivos ascci que necesito meter a una base de datos.. Necesito el código para ver archivos de tipo ascii... Gracias..
1 Respuesta
Respuesta de superfg
1
Podrías Usar o Adpatar esto.
*---------------------------*
IF FILE('errors.txt') && ¿Existe el archivo?
gnErrFile = FOPEN('errors.txt',12) && Si existe, abrir para lectura-escritura
ELSE
gnErrFile = FCREATE('errors.txt') && Si no, crearlo
ENDIF
IF gnErrFile < 0 && Comprobar si hay error al abrir el archivo
WAIT 'Imposible abrir o crear archivo de resultados' WINDOW NOWAIT
ELSE && Si no hay error, escribir en archivo
=FWRITE(gnErrFile, 'Se escribe la información de error')
ENDIF
=FCLOSE(gnErrFile) && Cerrar archivo
MODIFY FILE errors.txt NOWAIT && Abrir archivo en la ventana Modificar
***----------------------****
Espero te Sirva
Freddy garcía
Valera / Trujillo / Venezuela
*---------------------------*
IF FILE('errors.txt') && ¿Existe el archivo?
gnErrFile = FOPEN('errors.txt',12) && Si existe, abrir para lectura-escritura
ELSE
gnErrFile = FCREATE('errors.txt') && Si no, crearlo
ENDIF
IF gnErrFile < 0 && Comprobar si hay error al abrir el archivo
WAIT 'Imposible abrir o crear archivo de resultados' WINDOW NOWAIT
ELSE && Si no hay error, escribir en archivo
=FWRITE(gnErrFile, 'Se escribe la información de error')
ENDIF
=FCLOSE(gnErrFile) && Cerrar archivo
MODIFY FILE errors.txt NOWAIT && Abrir archivo en la ventana Modificar
***----------------------****
Espero te Sirva
Freddy garcía
Valera / Trujillo / Venezuela
