IBM Lotus Symphony


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

Lê dados de um arquivo sequencial aberto.

Sintaxe:

Input #FileNumber As Integer; var1[, var2[, var3[,...]]]

Parâmetros:

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

var: Uma variável numérica ou de sequência à qual você designa os valores lidos a partir do arquivo aberto.

A instrução Input# lê valores numéricos ou sequências de um arquivo aberto e designa os dados a uma ou mais variáveis. Uma variável numérica é lida até o primeiro retorno de linha (Asc=13), feed de linha (Asc=10), espaço ou vírgula. As variáveis de sequência são lidas até o primeiro retorno de linha (Asc=13), feed de linha (Asc=10) ou vírgula.

Os dados e tipos de dados no arquivo aberto devem aparecer na mesma ordem que as variáveis que são passadas no parâmetro "var". Se você designar valores não numéricos a uma variável numérica, a "var" será designado um valor "0".

Os registros separados por vírgulas não podem ser designados a uma variável de sequência. As aspas (") no arquivo também são desconsideradas. Se desejar ler estes caracteres a partir do arquivo, use a instrução Line Input# para ler arquivos de texto puro (arquivo contendo apenas caracteres para impressão) linha por linha.

Se for atingido o final do arquivo durante a leitura de um elemento de dados, ocorrerá um erro e o processo será interrompido.

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