FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour FTP - Leer archivo
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
FTP - Leer archivo
Posted: Fri Dec 10, 2010 12:41 AM
Gente:
Intento leer un archivo, alojado en un sitio, de texto plano.
Para el ejemplo de abajo, la idea es leer la 3 línea, donde cada línea tiene 80 caracteres

Code (fw): Select all Collapse
   oFileW:= TFtpFile():New( ::aDestinos[2], ::oFTP )
   oFileW:OpenRead()
   if ! Empty( oFileW:hFile )
      ? oFileW:Seek( 164 )
      ? cWInfo:= oFileW:Read( 17 )
   end
   oFileW:End()


Aunque el resultado es siempre el mismo, no mueve el puntero y siempre lee los 17bytes de la primer línea
Mi interpretación de Seek, es incorrecta?
Puedo leer de una determinada línea, una determinada cantidad de bytes?

muchas gracias
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Re: FTP - Leer archivo
Posted: Fri Dec 10, 2010 08:54 PM
MarioG wrote:

Code (fw): Select all Collapse
   oFileW:= TFtpFile():New( ::aDestinos[2], ::oFTP )
   oFileW:OpenRead()
   if ! Empty( oFileW:hFile )
      ? oFileW:Seek( 164 )
      ? cWInfo:= oFileW:Read( 17 )
   end
   oFileW:End()



Yo lo intentaria con la funcion de Clipper/xHarbour MEMOLINE()

For nLinea := 1 TO 3
? memoline(cMemo, 80, nLinea)
NEXT
Un saludo



Manuel
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: FTP - Leer archivo - SOLUCIONADO
Posted: Tue Dec 14, 2010 12:59 AM

Manuel
Muchas gracias, con Memoline tengo lo que necesito

Ahora quedaría pendiente que Fivetech nos ratifique o rectifique que devuelve el metodo ::Seek() de la clase TFTPFile

Saludos

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion