FoxPro/Visual FoxPro - Leer Archivo de texto

Muy Buenas:

Tengo un pequeño problema. Quiero leer un archivo de texto, linea por linea y recoger en una variable los 10 primeros caracteres de cada linea. El texto tiene lineas muy largas y cuando se pone a leer es como si las dividiera. A continuación pongo el Codigo

LOCAL Lector
LOCAL Linea

Lector = FOPEN('texto.txt')

IF Lector >-1
DO WHILE NOT FEOF(Lector)

Linea = left(FGETS(Lector),10)
MESSAGEBOX(linea)

ENDDO

FCLOSE(lector)
ENDIF
Un saludo y muchas gracias

Hola, yo he hecho esto en forma diferente, espero te sirva:

1.- guardo el texto en un campo memo de una tabla temporal.
2.- capturo los 10 primeros caracteres con substr(texto,1,10)

ejemplo:

info_a = space(1)
info_b = space(10)

use tabla && tabla temporal
info_a = campoM && campo memo
info_b = substr(info_a,1,10) && captura los 10 primeros caracteres


Suerte

Hola Nuevamente, veo que no solo quieres la primera linea, sino también los 10 primeros caracteres de cada linea.

Aparte de lo ya mencionado, podrías también guardar la data en un archivo (dbf), en un campo tipo c (caracter), en cada registro una linea, de forma tal que después haces un barrido de toda la tabla, capturando los 10 primeros caracteres de cada registro del campo en la tabla.

Suerte.

Hola, fijate si te sirve:

CREATE TABLE TEMPORAL ( Linea C( 200 ) )
* 200 o un numero adecuado a la cantidad de caracteres maximos que tenga la tabla

SELECT TEMPORAL
APPEND FROM (cTuArchivoTXT ) SDF

GO TOP
DO WHILE ! EOF()







ENDDO

Saludos.

Si no le das un segundo argumento a la función FGETS, asumirá solo los primeros 255 caracteres de la línea a leer.

De ahí viene tu problema.

Revisa la sintaxis completa de dicha función en la ayuda del VFP. Tod está ahí.



FGETS(nFileHandle [, nBytes])

Parameters
nFileHandle: Specifies the numeric file handle of the file or communication port from which FGETS( ) returns data.

nBytes: Specifies the number of bytes FGETS( ) returns. FGETS( ) returns nBytes bytes unless a carriage return is encountered first. FGETS( ) returns data between the starting file-pointer position and the carriage return if a carriage return is encountered within nBytes bytes.

FGETS( ) returns a maximum of 8192 bytes. If you omit nBytes, FGETS( )returns 254 bytes by default.

puedes ponerle 8192 a los caracteres al FGETS.

por que si encuentra un fin de linea o asea el chr(13) o fin de archivo EOF().

se detiene y solo te trae lo largo de cada linea.

NOTA: aguas por que los saltos de linea, o sea line feed, chr(10) son ignorados.


pudiento estas sobrepasar los 254 que tiene x default.

m.tcDocumento_cRuta= 'Cliente.xml'

m.lnFile_xml = Fopen(m.tcDocumento_cRuta,0) && Solo Lectura (RO).

Select 0
Create Cursor _xml ( linea m)

Do While .T.

m.lcLinea_xml = Fgets(m.lnFile_xml, 8192) && se detiene al encontrar un chr(13) ó EOF()

If !Empty(m.lcLinea_xml)

Append Blank

Replace _xml.linea With m.lcLinea_xml

Endif
If FEOF(m.lnFile_xml)

Fclose(m.lnFile_xml)

Exit

Endif
Enddo

despues de ponerlo en el _xml como haces para mandarlo timbrar. estoy intentando con diverza por metodo de prueba
con token

saludos