Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Por FelipeArruda
Posts
#29462
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.
Avatar do usuário
Por Reinaldo
Avatar
#29464
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  
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord