![Otimizar é legal.](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGxGXiX523SnjaqBHdfZ-_Z7AOIWb49XqzJbXa9eJ5r4w4Ajddql1CrE54ilczs4LBdmxJR0GNW1jcR2sXT6dzUyyK4LNRvx5o5qG_WavJT0W0IKGPw_WTfjFXCCMdVpzFsZjSgxnm9jhR/s320/code.png)
Vejo na maior parte do tempo pessoas tratando a leitura de um arquivo com um loop lendo cada linha e carregando uma variável com as mesmas. Existe um comando que possibilita o carregamento do texto inteiro sem a necessidade do loop linha a linha. Vamos aos exemplos.
'Pega o próximo número disponível para utilizar na função Open. iFile = FreeFile 'Abre o arquivo para leitura Open APP.Path & "teste.txt" For Input As #iFile lLinha = 0 sArquivo = "" sNumerado = "" Do While Not EOF(iFile) Line Input #iFile, sLinha lLinha = lLinha + 1 'Pega a informação da linha If sArquivo <> "" Then sArquivo = sArquivo & vbCrLf sArquivo = sArquivo & sLinha 'Pega a informação da linha para numerar cada linha If sNumerado <> "" Then sNumerado = sNumerado & vbCrLf sNumerado = sNumerado & Format(lLinha, "00000") & sLinha Loop 'Fecha o arquivo Close #iFileSe não há necessidade de efetuar uma leitura linha a linha, podemos utilizar o comando a seguir.
'Pega o próximo número disponível para utilizar na função Open. iFile = FreeFile 'Abre o arquivo Open APP.Path & "\teste.txt" For Input As #iFile 'Faz a leitura dos dados do arquivo sArquivo = Input(LOF(iFile), 1) 'Fecha o arquivo Close #iFileMuito mais simples, rápido e prático.
Nenhum comentário:
Postar um comentário