Page 1 of 1
COMO LEER Y ESCRIBIR EN UN ARCHIVO DE TEXO
Posted: Wed May 16, 2007 7:50 pm
by prm_pedro
HOLA ATODOS...
DE NUEVO MOLESTANDO....
ALGUINE ME PODRIA AYUDAR PARA LEER Y ESCRIBIR EN UN ARCHVIO DE TEXTO... LO PUEDO HACER LINEA A LINEA CON ALGUN SEPARADOR ENTREA DATOS DE LA LINEA...
EPERO Y ME PUEDAN AYUDAR...
GRACIAS...
Posted: Wed May 16, 2007 7:53 pm
by Antonio Linares
Code: Select all
local cTexto := MemoRead( CurDir() + "\nombre.txt" )
for n = 1 to MLCount( cTexto )
MsgInfo( MemoLine( cTexto, n ) )
next
MemoWrit( CurDir() + "nombre.txt", "texto a guardar en el fichero" )
ok
Posted: Wed May 16, 2007 8:52 pm
by prm_pedro
oye antonio...
tengo un problema.... el archivo no me muestra todo el contenido al leerlo solo me mueestra la primera lina y me la repite por el el numero de renglones...
aprovechando... PUEDO ESBRIBIR LINEA A LINEA ES DECIR PUEDO HABRIR EL ARCHIVO Y ESCRIBIR EN EL SI BORRAR EL CONTENIDO
ESPERO Y ME PUEDAS AYUDAR
OK
Posted: Wed May 16, 2007 9:34 pm
by Antonio Linares
Cambia esta línea así:
MsgInfo( MemoLine( cTexto,, n ) )
Para añadir líneas posteriormente, puedes usar:
MemoWrit( CurDir() + "\nombre.txt", MemoRead( CurDir() + "\nombre.txt" ) + CRLF + "Nueva linea" )
ó usar las funciones típicas de Clipper: FOpen(), FWrite(), FSeek(), FClose(). Revisa la documentación de Clipper de como usar esas funciones.