MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]remover linha em branco do arquivo txt

    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]remover linha em branco do arquivo txt Empty [Resolvido]remover linha em branco do arquivo txt

    Mensagem  adriano_byte em 13/11/2018, 23:16

    eu tenho este código postado pelo JPaulo aqui.

    Código:
    Dim strTexto As String

       Open "C:\teste.txt" For Input As #1
        Line Input #1, strTexto: Debug.Print "Line 1: " & strTexto
        Line Input #1, strTexto: Debug.Print "Line 2: " & strTexto
        Line Input #1, strTexto: Debug.Print "Line 3: " & strTexto
       Close #1

    Este código lê as 3 linhas, só que a linha dois está em branco. como faço para remover e deixar apenas as preenchidas?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5949
    Registrado : 15/03/2013

    [Resolvido]remover linha em branco do arquivo txt Empty Re: [Resolvido]remover linha em branco do arquivo txt

    Mensagem  ahteixeira em 14/11/2018, 10:49

    Olá Adriano

    Possivelmente usou o IF com o LEN.
    Pode partilhar a solução que resolveu.

    Os membros do forrum agradecem.

    Abraço
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10549
    Registrado : 04/11/2009

    [Resolvido]remover linha em branco do arquivo txt Empty Re: [Resolvido]remover linha em branco do arquivo txt

    Mensagem  JPaulo em 14/11/2018, 16:23

    A solução deve ter sido esta;

    Código:
    Dim strTexto As String

      Open "C:\TEMP\teste.txt" For Input As #1

    Line Input #1, strTexto: If strTexto <> "" Then Debug.Print "Line 1: " & strTexto
    Line Input #1, strTexto: If strTexto <> "" Then Debug.Print "Line 2: " & strTexto
    Line Input #1, strTexto: If strTexto <> "" Then Debug.Print "Line 3: " & strTexto
    Line Input #1, strTexto: If strTexto <> "" Then Debug.Print "Line 4: " & strTexto

      Close #1


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]remover linha em branco do arquivo txt Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]remover linha em branco do arquivo txt Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]remover linha em branco do arquivo txt Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado

    [Resolvido]remover linha em branco do arquivo txt Empty Re: [Resolvido]remover linha em branco do arquivo txt

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2019, 06:18