Este fórum está sendo desativado

[FelipeArruda]

Prezados, boa noite.

Tenho o seguinte código para ler cada linha de um arquivo txt.

Código: Selecionar todos

Do While Not EOF(arquivo)
    Line Input #arquivo, textoProxLinha
    textoProxLinha = textoProxLinha & vbCrLf
    
    textoArquivo = textoArquivo & textoProxLinha
    
    If InStr(textoProxLinha, "---") > 0 Then
       'Preciso pular de linha, ou seja, ir para a próxima.
    End If   
    
Loop  

Debug.Print textoArquivo

Close arquivo

Como posso fazer para que ao cair na condição IF ir para a próxima linha:

Att,
Felipe Arruda.

[Reinaldo]

Pelo comando utilizado a proxima linha e "obtida" pelo loop, assim uma maneira

Código: Selecionar todos

Do While Not EOF(arquivo)
    Line Input #arquivo, textoProxLinha
    textoProxLinha = textoProxLinha & vbCrLf
    
    textoArquivo = textoArquivo & textoProxLinha
    
    If InStr(textoProxLinha, "---") > 0 Then
     GoTo Aqui
 'Preciso pular de linha, ou seja, ir para a próxima.
    End If   
 aqui:   
Loop