Pergunte aqui
0

Macro para ler arquivo txt

perguntadas 2019-05-28 15:47:44 +0200

imagem do gravatar de ronaldofas

updated 2019-05-28 19:14:57 +0200

Gostaria de saber se alguém tem alguma macro para leitura sequencial de arquivo txt ou se possui algum material sobre esse assunto.

Agradeço.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

0

respondidas 2019-05-28 17:55:35 +0200

imagem do gravatar de Ronaldo Elias

updated 2019-05-28 18:04:47 +0200

Seria mais ou menos isso?

Function Nome()
    Dim iNumber as Integer
    Dim sLine, aFile, sMsg as String
        sMsg = ""
        aFile = "C:\Documentos\Teste.txt"
            If FileExists(aFile) Then
                iNumber = Freefile
                Open aFile For Input as iNumber
                While not eof(iNumber)
                Line Input #iNumber, sLine
                    If (sLine <> "") Then
                        sMsg = sMsg & sLine & " "
                        'ou sMsg = sMsg & sLine & Chr(13)
                        MsgBox sMsg
                    End if
                Wend
                Close #iNumber
            Else
            End if
End Function
editar assinalar como ofensivo Excluir Link mais

Comentários

Era exatamente isso, muito obrigado!

imagem do gravatar de ronaldofasronaldofas ( 2019-05-28 18:29:15 +0200 )editar

Qual é o padrão que você utiliza para nomeação de variáveis? tem documentação?

imagem do gravatar de ronaldofasronaldofas ( 2019-05-28 18:44:41 +0200 )editar
imagem do gravatar de Ronaldo EliasRonaldo Elias ( 2019-05-31 18:25:13 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-05-28 15:47:44 +0200

Lidas: 34 vezes

Última atualização: May 28