Leitura de arquivo no VB6

Otimizar é legal.Se você precisar fazer a leitura de um arquivo texto e conhece somente a leitura linha a linha, acredito que este pequeno artigo será útil quando você precisar apenas carregas as informações de um arquivo para uma variável qualquer.
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 #iFile
Se 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 #iFile
Muito mais simples, rápido e prático.

Nenhum comentário:

Postar um comentário