none
Deletar Linhas TXT RRS feed

  • Pergunta

  • Eu tenho a seguinte funcao para excluir linhas em branco, entre as linhas funciona bem, só que fica sempre nas ultimas linhas fica 2 linhas em branco.

    Limpa = FreeFile
                        Open "c:\temp\teste.txt" For Input As #Limpa
                          strTmpC460 = Input(LOF(LimpaC460), #Limpa)
                        Close #Limpa
                        
                        Do While InStr(1, strTmp, vbCrLf & vbCrLf) > 0
                          strTmp = Replace(strTmp, vbCrLf & vbCrLf, vbCrLf)
                        Loop
                        
                        Limpa = FreeFile
                        Open "c:\temp\teste.txt" For Output As #Limpa
                        Print #Limpa, strTmp
                Close #Limpa

     
    terça-feira, 17 de julho de 2012 14:15

Todas as Respostas