IBM Lotus Symphony
|
Lê dados de um arquivo sequencial aberto.
Input #FileNumber As Integer; var1[, var2[, var3[,...]]]
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.
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