FoxPro/Visual FoxPro - Ayuda con Txt !!!!

Hola amigos del foro, alguien de uds sabe porque solo llega a la linea L=2047, quisiera enviar el resultado al bloc de notas, pero solo llega a esas lineas y me dice LAS COORDENADAS NO SON VALIDAS.

STORE -1 TO L
SET PRINTER TO MiTexto.txt
SET DEVI TO PRINT
@ 0,0 SAY ''
DO WHILE L<1500000
L = L + 1
@ L,00 SAY L
@ L,20 SAY 'Hola '
ENDDO
SET PRINT TO
SET DEVICE TO SCREE

Gracias de antemano.
Saludos.

Hace tiempo me paso lo mismo y lo solucione con lo sig.

STORE -1 TO L
crea cursor mitexto(nro n(7),tex c(5))
DO WHILE L<1500000
wait wind str(l) nowait
L = L + 1
appe blank
repl nro with l,tex with 'Hola '
ENDDO

copy to mitexto.txt type SDF

probalo.

Hola Enrique:
Gracias por responder esta perfecto lo que me indicas, pero ese:

copy to mitexto.txt type SDF

que me indicas, me tira con espacios en blanco al final del campo, lo que quiero es suprimir los espacios en blanco, al final de cada registro.

y gracias de nuevo

Te falta el ALLTRIM para eliminar los espacios en blanco

STORE -1 TO L
crea cursor mitexto(nro n(7),tex c(5))
DO WHILE L<1500000
wait wind str(l) nowait
L = L + 1
appe blank
repl nro with ALLTRIM(str(L, 7)),tex with 'Hola '
ENDDO

copy to mitexto.txt type SDF

Hola Martha:

Y gracias por responder, efectivamente la guarda en la tabla sin los espacios en blanco:

Te falta el ALLTRIM para eliminar los espacios en blanco

STORE -1 TO L
crea cursor mitexto(nro n(7),tex c(5))
DO WHILE L<1500000
wait wind str(l) nowait
L = L + 1
appe blank
repl nro with ALLTRIM(str(L, 7)),tex with 'Hola '
ENDDO

Pero aqui es el problema, al ser copiado a un archivo de texto (txt) al abrir en el block de notas aparece los espacios en blanco al final de cada registro, y son estos espacios en blancos los que quiero quitar.

Me parece que no se pude hacer esto. Ya que los genios no han dicho si no.

Quisiera que los mas expertos digan SI o No, por favor. para no estar esperando en vano. y tener que quitar los espacios en blanco linea a linea.

No tomen a mal mi inquietud. Saludos.


copy to mitexto.txt type SDF

Porque no pruebas con la sentencia de text endtext
ejemplo
set textmerge on to mitexto.txt
for x=1 to 1500000
xnumero=alltrim(str(x,7))
text
<<xnumero>> <<'hola'>>
endtext
next
set textmerge off

y experto no hay nadie sino que solo con un poco mas de experiencia en el tema ya que se sigue aprendiendo algo nuevo dia a dia.

Hola Spoonky:

Gracias por tu ayuda, es justo lo que queria. y cierto cada dia se aprende algo nuevo.

Eternamente agradecido.
Saludos.