Leer TXT
Posted: Mon May 06, 2013 4:16 am
Grupo,
Tengo que leer un archivo TXT, separado por " (comillas), hasta el momento he hecho esto:
#INCLUDE <Fileio.ch>
#INCLUDE <hmg.ch>
#INCLUDE <PS_Cnfg.ch>
PROCEDURE ReadTxtFile
LOCAL LsTxtFile:= ""
LsMyDocumentsFolder := "'"+GetMyDocumentsFolder()+"'"
SetCurrentFolder(LsMyDocumentsFolder)
LsTxtFile := "'" + GETFILE ({{"Archivo TXT a procesar","MAIN_*.*"}},"Archivo TXT a procesar", &LsMyDocumentsFolder, .F., .T.) + "'"
MsgInfo (LsTxtFile,"1")
MsgInfo (&LsTxtFile,"2")
IF !FILE(&LsTxtFile)
MsgInfo ("Archivo no encontrado o se canceló la opción.","Lectura de TXT")
RETURN(NIL)
ENDIF
CursorWait()
nManejador := FOPEN("MAIN_ART.txt", FO_READWRITE + FO_SHARED)
IF FERROR() != 0
MsgInfo ("No se puede abrir el fichero, error DOS ") // STR(FERROR()))
BREAK
ELSE
MsgInfo ("Archivo Localizado")
//Frm_Verificador.Edt_TxtFile.Value := nManejador
MsgInfo (str(nManejador))
ENDIF
RETURN
Ahora mi problema es saber leer el contenido del archivo y luego leer linea por linea,
no tengo idea de como hacerlo, ¿alguien me puede ayudar?
De antemano muchas gracias por la ayuda y atención a la presente.
Tengo que leer un archivo TXT, separado por " (comillas), hasta el momento he hecho esto:
#INCLUDE <Fileio.ch>
#INCLUDE <hmg.ch>
#INCLUDE <PS_Cnfg.ch>
PROCEDURE ReadTxtFile
LOCAL LsTxtFile:= ""
LsMyDocumentsFolder := "'"+GetMyDocumentsFolder()+"'"
SetCurrentFolder(LsMyDocumentsFolder)
LsTxtFile := "'" + GETFILE ({{"Archivo TXT a procesar","MAIN_*.*"}},"Archivo TXT a procesar", &LsMyDocumentsFolder, .F., .T.) + "'"
MsgInfo (LsTxtFile,"1")
MsgInfo (&LsTxtFile,"2")
IF !FILE(&LsTxtFile)
MsgInfo ("Archivo no encontrado o se canceló la opción.","Lectura de TXT")
RETURN(NIL)
ENDIF
CursorWait()
nManejador := FOPEN("MAIN_ART.txt", FO_READWRITE + FO_SHARED)
IF FERROR() != 0
MsgInfo ("No se puede abrir el fichero, error DOS ") // STR(FERROR()))
BREAK
ELSE
MsgInfo ("Archivo Localizado")
//Frm_Verificador.Edt_TxtFile.Value := nManejador
MsgInfo (str(nManejador))
ENDIF
RETURN
Ahora mi problema es saber leer el contenido del archivo y luego leer linea por linea,
no tengo idea de como hacerlo, ¿alguien me puede ayudar?
De antemano muchas gracias por la ayuda y atención a la presente.