FTP - Leer archivo

[MarioG]

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: Select all  Expand view

   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

[Manuel Valdenebro]

Code: Select all  Expand view

   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

[MarioG]

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