Line Input# Statement
Reads a line from a sequential file into a variable.

Line Input #fileNum, variable
fileNum Nombre del fitxer que conté les dades que voleu llegir. El fitxer s'ha d'haver obert per endavant amb l'expressió Open utilitzant la paraula clau INPUT.
variable: The name of the variable that stores the result.
Amb l'expressió Line Input#, podeu llegir cadenes d'un fitxer obert en una variable. Les variables de cadena es llegeixen línia a línia fins al primer salt de carro (Asc=13) o línia nova (Asc=10). Les marques de final de línia no s'inclouen a la cadena resultant.
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "Això és una línia de text"
Print #iNumber, "Això és una altra línia de 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
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "~/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