FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Pocket PC COMO LEER Y ESCRIBIR EN UN ARCHIVO DE TEXO
Posts: 46
Joined: Tue Oct 10, 2006 06:16 PM
COMO LEER Y ESCRIBIR EN UN ARCHIVO DE TEXO
Posted: Wed May 16, 2007 07:50 PM

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)

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
COMO LEER Y ESCRIBIR EN UN ARCHIVO DE TEXO
Posted: Wed May 16, 2007 07:53 PM
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" )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 46
Joined: Tue Oct 10, 2006 06:16 PM
ok
Posted: Wed May 16, 2007 08:52 PM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
COMO LEER Y ESCRIBIR EN UN ARCHIVO DE TEXO
Posted: Wed May 16, 2007 09:34 PM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion