www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
Function LeerTxt(cFile)
Local oFile,cLinea:=""
oFile:= TTxtFile():New( cFile )
Do while !oFile:EOF()
cLinea :=oFile:ReadLine()
oFile:Skip()
EndDo
oFile:End()
Return
Code: Select all
local FO_READWRITE:=2, FO_SHARED:=64 , FS_END:=2 //Fileio.ch
local cFile := ".\TuFichero.txt", nHand, cCad:="LoQueVasAEscribir"
if !file(cFile)
nHand := FCreate( cFile ) // creamos archivo
FWrite(nHand, cCad + CRLF+"") // escribimos en el
FClose(nHand) // lo cerramos el fichero
else
nHand := FOpen( cFile, FO_READWRITE + FO_SHARED ) // abriendol fichero lect-escrit-compartido
FSeek(nHand, 0, FS_END) // nos colocamos al final
FWrite(nHand, cCad + CRLF+"") // escribimos en el
FClose(nHand) // lo cerramos
endif[i]
Algo muy sencillo:abelcervantes wrote:pero quisiera algo bien simple: Abrir, leer y cerrar.
Code: Select all
local cFichero:="Ejemplos.txt"
dbCreate("C:\Prueba",{{"TEXTO","C",254,0}})
dbusearea(.t.,,"C:\prueba","prueba",.F.)
dbselectarea("Prueba")
append from &cFichero DELIMITED
prueba->(MyXBrowse(Alias(),"LEYENDO DBF (Desde un Fich de Texto se agrega a una Dbf con APPEND FROM...DELIMITED)"))
prueba->(dbcloseArea())
Ferase("c:\prueba.dbf")Code: Select all
Function CheckFileTxt()
cTexto:=MEMOREAD( "C:\MiFile.txt" )
nLinea:=MLCOUNT(cTexto)
FOR Q=1 TO nLinea
cLinea:=MEMOLINE(cTexto,255,Q)
MsgInfo(cLinea)
NEXT
Return nil
Abel, utilizo muchísimo programas de lectura/conversión de archivos de texto, y solo con funciones FOpen(), FRead(), FSeek(), FCreate(), FWrite(), etc., incluso algunos de ellos debo convertir de EBCDIC a ASCII o viceversa.abelcervantes wrote:Muchas gracias amigos por sus respuestas.
Ya había intentado con las funciones: fOpen(), fRead(), etc., pero no funcionaba. Luego comprobé que mi archivo .TXT estaba en formato UNICODE y las funciones que me sugieren solo leen ANSI, asi que abrí el archivo de texto y lo grabé en formato ANSI.
Entonces pude leer el archivo pero no línea por línea, seguramente estoy cometiendo algún error.
Asi que recurrí a una función antigua (según yo): MemoRead y con MemoLine fue sencillo leer el archivo.
Mi gran duda ahora es ¿podré leer con esta función archivos grandes?. Según leí por algún lado solo puede leer archivos pequeños, de hecho el archivo que abró pesa 56kb.
De todas formas gracias George, Adhemar (maestro), y Francisco.