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

    Compartilhe
    avatar
    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

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

    eu tenho este código postado pelo JPaulo [Você precisa estar registrado e conectado para ver este link.].

    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?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    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.

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

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

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

      Data/hora atual: 16/12/2018, 11:22