FoxPro/Visual FoxPro - Leer lineas de un txt

Hola amigos del FOX.

tengo una pequeña duda nesecito leer lineas de un archivo TXT a fin de formar o crear un nuevo archivo .txt , lo que nesecito es pasar todola la informacion del txt menos las LINEAS EN BLANCO.

tambien me ayudaria saber que comnado se utiliza para contar el numero de lineas de un archivo TXT ojo lineas no BYTES.

Esperando su ayuda muchas gracias

Que tal...
Bueno yo haria lo siguiente:
Primero pasaria el archivo.txt de origen a una tabla.dbf con :append form archvo.txt sdf, luego elimino los campos en blanco con delete for tabla.campo=" "
Le aplico su pack.
Ya para generar mi nuevo archivo .TXT lo puedes hacer de varias formas.
Si deseas colocarlo en tabulaciones(posiciones especificas) puedes usar el @ say.
Si solo deseas lineas sin pocisiones especifiacas (linea por linea) usa el comando:
copy to.
Para contar los caracteres que tiene una expresion usa el comando len()
ejemplo:
Esto lo pones en un boton
Exportando de .TXT a DBF
use tabla.dbf EXCLUSIVE &Debes usarla de forma exclusiva para que te procese el Pack.
append from oArchivo.TXT sdf
wait wind "Texto Exportado a Tabla...Organizando Datos..." nowait
delete for tabla.campo=" "
pack
wait wind "Datos organizados." nowait

Ya hasta aqui tenemos la data en tabla.dbf
Esto lo pones en otro boton
Pasando de DBF a TXT (Usando @Say) -Es solo un ejemplo :)
nFile="nArchivo.TXT" & Nombre del nuevo archivo .TXT
SET TALK ON &Para que muestre los resultados
SET DEVICE TO file &nFile &Lo que sale va a el archivo
SET PRINTER OFF &No usaremos el printer
linea = 1 &Para mover las lineas
select tabla &Seleccionamos tabla
scan &Se mantiene en un ciclo mientras haya datos
*Voy a suponer que lo que pase todo lo que sea mayo a 10 caracteres
IF LEN(alltrim(tabla.campo))<10
@ linea,0 say padr(campo,15," ")
linea = linea+1
endif
endscan
SET DEVICE TO PRINTER & Saco mi nArchivo
SET PRINT off
wait wind "Archivo Exportado con Exito..." nowait

Suerte!

hola como estas quisiera saber si hay un método para pasar un archivo .rtf a .txt lo necesitaría para contar las cantidad de lineas que posee el archivo o la cantidad de caracteres.
desde ya muchas gracias por el aporte que brindas a este foro.-

hola como estas, quisiera saber si hay algún método para contar los caracteres de un archivo .txt o en su defecto la cantidad de linea que posee un archivo .txt

hola buenas tardes. solo quería agradecerte por el aporte que me diste era justo lo que estaba necesitando.
mil gracias DIOS TE BENDIGA.-

Hola buenas tardes. ante todo quisiera agradecer todo el aporte que me has brindado en este tiempo, me sirvió mucho.
nuevamente el motivo de mi consulta es el siguiente: tengo un archivo .txt en el cual desde un texbox de mi formulario necesito asignar una variable en la linea 5 del archivo .txt que esta vacía y tengo que completarla manualmente con un nro de control el cual me asiga el form.
mi intención es ejecutar el form y se asigne el nro de control al archivo .txt así no tener que cargarlo manualmente.
gracias de antemano por cualquier ayuda que me puedas brindar.-

1) Recuerda que si el valor del textbox es tipo numeric, lo debes converitr a caracter.

2) Puedes utilizar este procedimiento, combinando FileToStr() con funciones de bajo nivel.
2.1) Fijate si donde va el reemplazo tiene una equivalencia, o tag.
Equivalencia: NumeroRegistro = 60
Tag <NumeroRegistro>60</NumeroREgistro>
<NUmeroREgistro=60/> && este caso, en realidad, es igual al primero.

hola buenos dias: como estas gracias por la pronta respuesta ni bien lo aplique a mi formulario y te digo como me fue.
muchas gracias DIOS te bendiga.-

Hola buenas noches:
ante todo quisiera agradecerte por todo el aporte que me brindaste en mis consulta tanto vos como el resto del foro. He enriquecido notablemente mis conocimientos gracias a este foro. A la vez te informo qie ya he finalizado con mi aplicación y funciona a la perfección.
lo que si he notado que al instalarlo en otra pc que no tenga instalado el vfp 9 la aplicación simplemente no se ejecuta.
Ya he copiado la libreria de vfp, WindowState =0, WindowsType=0 y show windows=2.
Este es el Prg desde donde genero el ejecutable y lo tengo establecido como principal

SET SAFE OFF
_SCREEN.VISIBLE =.F.
CLEAR EVENT
CLOSE ALL
CLEAR PROGRAM
RELEASE ALL
DO FORM copimodi
set safe off
READ EVENTS

como te comento en la pc que tengo instalado el vfp9 funciona a la perfección. no así en las otras PCs.-
desde ya como te comente agradezco mucho tu ayuda y de todo el foro.-

Hola Celso
Prueba esta manera de convocar al form principal y revisa las líneas de configuración.
Las sentencias comentadas (*) no corresponden al lugar donde las pones.
Te recomiendo el uso de ON SHUTDOWN. La rutina de cierre "CierreProg()" que acompaño la colocas en el mismo main.prg como está acá. Este es un ejemplo mínimo.

Recuerda que todos los forms que se abran a partir de "CopiModi" tienen que ser ShowWindow=1 (pudiendo ser Desktop=.t.) o ShowWindow=2.


Nota: Más que copiar las librerías te conviene usar el instalador de runtime para la versión que tengas.
Para Visual Fox 9.0 SP2, busca en google "VFP9SP2RT.exe".

revisa las funciones de bajo nivel
FCHSIZE( ) , FCLOSE( ) , FCREATE( ) , FEOF( ) , FFLUSH( ) , FGETS( ) , FPUTS( ) ,
FREAD( ) , FSEEK( ) , FWRITE( )

Suerte

Si a eso se le agrega que con FILETOSTR() se puede llevar a la memoria, que con STRTRANS() se pueden eliminar las lineas en blanco y que con ALINE se pueden copiar todas las lineas a un arreglo (ALEN(arreglo,1) daria la longitud del arreglo en filas)