Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » QUITAR LINEA EN BLANCO ARCHIVO TXT

FoxPro/Visual FoxPro - QUITAR LINEA EN BLANCO ARCHIVO TXT

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de JOHN
Val: 59
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

QUITAR LINEA EN BLANCO ARCHIVO TXT

Publicado por JOHN (3 intervenciones) el 28/01/2021 16:36:16
ESTIMADO HE LLENADO UN TXT USANDO FPUTS, PERO AL FINAL ME HACE UN SALTO DE LINEA...GENERANDOSE UNA LINEA AL FINAL DEL TXT EN BLANCO, DESEO ELIMINAR ESA ULTIMA LINEA EN BLANCO
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 147
Bronce
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

QUITAR LINEA EN BLANCO ARCHIVO TXT

Publicado por zarlu (103 intervenciones) el 30/01/2021 14:09:43
Buenos días John!

A ver si esto te sirve:
Seleccionas un archivo txt y te genera el archivo "salida.txt" en el mismo directorio del archivo origen.

1
2
3
4
5
6
7
8
9
10
11
Clear
lcPath=GETFILE()
lcTxtIn=FILETOSTR(lcPath)
lcTxtOut=""
FOR a=1 TO ALINES(lcArray,lcTxtIn)
	IF !EMPTY(lcArray(a))
		lcTxtOut=lcTxtOut+lcArray(a)+CHR(13)
	ENDIF
EndFor
lcTxtOut=STRTRAN(lcTxtOut,CHR(13),"",OCCURS(CHR(13),lcTxtOut))
STRTOFILE(lcTxtOut,ADDBS(JUSTPATH(lcPath))+"salida.txt")

Suerte
zarlu
Chetumal, Quintana Roo, México
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar