IBM Lotus Symphony


Instrução Line Input# [Tempo de Execução]

Lê sequências de um arquivo sequencial para uma variável.

Sintaxe:

Line Input #FileNumber As Integer, Var As String

Parâmetros:

FileNumber: Número do arquivo que contém os dados que você deseja ler. O arquivo deve ter sido aberto antes com a instrução Open usando a palavra-chave INPUT.

var: O nome da variável que armazena o resultado.

Com a instrução Line Input#, é possível ler sequências de um arquivo aberto para uma variável. As variáveis de sequência são lidas linha por linha até o primeiro retorno de linha (Asc=13) ou feed de linha (Asc=10). As marcas de fim da linha não são incluídas na sequência resultante.

Exemplo:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "This is a line of text"

Print #iNumber, "Esta é outra linha de texto"

Fechar #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Fechar #iNumber

Msgbox sMsg

End Sub


Feedback do Produto | Documentação Adicional | Marcas Registradas