IBM Lotus Symphony


Instrução Line Input # [Runtime]

Lê cadeias a partir de um ficheiro sequencial para uma variável.

Sintaxe:

Line Input #FileNumber As Integer, Var As String

Parâmetros:

FileNumber: Número do ficheiro que contém os dados que pretende ler. O ficheiro tem de ter sido aberto antes, com a instrução Open, utilizando a palavra-chave INPUT.

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

Com a instrução Line Input#, pode ler as cadeias a partir de um ficheiro aberto para uma variável. As variáveis de cadeia são lidas linha a linha, até ao primeiro retorno de linha (Asc=13) ou até à primeira mudança de linha (Asc=10). As marcas de final de linha não são incluídas na cadeia 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, "This is another line of text"

Close #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

Close #iNumber

Msgbox sMsg

End Sub


Comentários sobre o produto | Documentação adicional | Marcas comerciais