ELIMINAR LINHAS EM BRANCO NO ARQUIVO TXT

[barry]

Oi Marcos desculpa não sabia onde postar, é sim preciso eliminar várias linhas em branco em um arquivo txt, vc tem ideia de como fazer?

[Marcos Guedes]

Veja se isto resolve:

Código:

moverlinhasbrancasarquivo("arquivo.txt")

PROCEDURE moverlinhasbrancasarquivo AS void
   LPARAMETERS caminhoarquinho AS STRING

   #DEFINE _enter CHR(13)+CHR(10)
   conteudo = FILETOSTR(m.caminhoarquinho)

   DO WHILE AT(_enter+_enter,m.conteudo)>0

      m.conteudo = STRTRAN(m.conteudo,_enter+_enter,_enter)

   ENDDO
   
   STRTOFILE(m.conteudo, m.caminhoarquinho)

ENDPROC

[barry]

Marcos não funcionou não amigo. Preciso eliminar todas as linhas em branco nesse arquivos txt de uma nfe conforme anexo

[Você precisa estar registrado e conectado para ver este link.]

[Mankos]

Esse codigo faz o que vc quer, porem não é uma boa pratica, se ajaudar.

Código:


ArquivoOrigem= Getfile("txt")

Create Cursor CurArqu(texto c(250))
Set Deleted On

Select CurArqu
Append From "&ArquivoOrigem" Sdf
Delete For Empty(Allt(texto))

Select CurArqu
Copy To &ArquivoOrigem Sdf


[hugo]

ta reputado mankos

parabens

[Marcos Guedes]

Muito boa esta solução, Mankos!

Barry, fiz a seguinte modificação na função:

Código:

MODIFY FILE "NFe.TXT"
moverlinhasbrancasarquivo("NFe.TXT")
MODIFY FILE "NFe.TXT"

PROCEDURE moverlinhasbrancasarquivo AS void
   LPARAMETERS caminhoarquinho AS STRING
   *!*
   LOCAL setSafety
   LOCAL conteudo AS STRING
   LOCAL totallinhas AS STRING
   LOCAL contador AS INTEGER
   LOCAL linha AS STRING
   LOCAL conteudotemp AS STRING
   *!*
   m.setSafety = SET("Safety")
   SET SAFETY OFF 
   *!*
   m.conteudo = FILETOSTR(m.caminhoarquinho)
   m.totallinhas = ALINES(arraylinhas,m.conteudo)
   m.conteudotemp = ""
   *!*
   FOR m.contador = 1 TO m.totallinhas
      m.linha = m.arraylinhas[m.contador]
      IF !EMPTY(m.linha) THEN
         m.conteudotemp = m.conteudotemp + m.linha + CHR(13)+CHR(10)
      ENDIF
   ENDFOR
   *!*
   SET SAFETY &setSafety
   *!*
   STRTOFILE(m.conteudotemp, m.caminhoarquinho)
ENDPROC

Fica a seu critério decidir qual utilizar.

Resolvido?

[barry]

sim Marcos funcionou obrigado a todos