Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

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

Seria mais ou menos isso? 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

Function