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...


8) 8)

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 :roll: :(

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.