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...
![]()
![]()
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...
![]()
![]()
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" )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
![]()
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.