IBM Lotus Symphony
|
Lê cadeias a partir de um ficheiro sequencial para uma variável.
Line Input #FileNumber As Integer, Var As String
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.
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