COMO LEER Y ESCRIBIR EN UN ARCHIVO DE TEXO

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

[Antonio Linares]

Code: Select all | Expand

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" )

[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

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