La Web del Programador: Comunidad de Programadores
 
    Pregunta:  7139 - PROGRAMA EN VFP QUE ME LEA UNA ARCHIVO DE TEXTO
Autor:  gino alberto suero morán
Como puedo hacer un programa desde visual foxpro o desde foxpro para que me lea un archivo de texto (*.txt) y reemplace cada línea de ese archivo en un campo de una tabla. Por favor podrían ayudarme con este programa por favor si podrian darme la solución paso a paso y si es posible envienme el codigo, le agradesco de antemano su colaboración

  Respuesta:  jose manuel hernandez portilla
ok, alberto..
hay otra manera de leer un archivo txt

con solo 2 lineas

lo puedes hacer creando una tabla con un campo caracter con la longitud que tu creas necesaria para guardar cada linea del archivo de texto.

y con un appen from lo agregas a la tabla y listo, eso es todo
ya puedes leer tu tabla registro por registro. y cada registro es una linea de codigo del archivo texto

nota: el parametro sdf = standard data file
(archivo de datos standard.) se debe agregar al final del append

el codigo seria el siguiente

use la_tabla.dbf
appen from mi_arch.txt sdf
brow
close all

  Respuesta:  Cecilia Colalongo
Creo que sería algo así:

LOCAL lhFile, lsBuffer

lhFile=FOPEN("archivo.txt")

IF lhFile<0
RETURN
ENDIF

DO WHILE NOT FEOF(lhFile)
lsBuffer=FGETS(lhFile)
REPLACE campo WITH lsBuffer
ENDDO

FCLOSE(lhFile)

La función FOPEN() sirve para abrir un archivo a bajo nivel, y con FGETS si mal no recuerdo es para leer por línea (es decir hasta encontrar un retorno de carro)