Instruction Line Input#
Lit une ligne dans un fichier séquentiel et l'insère dans une variable.

Line Input #fileNum, variable
fileNum : numéro du fichier contenant les données à lire. Le fichier doit avoir été ouvert auparavant avec l'instruction Open à l'aide du mot-clé INPUT.
variable : nom de la variable contenant le résultat.
L'instruction Line Input# permet de lire des chaînes à partir d'un fichier ouvert et d'assigner ces chaînes à une variable. Les variables de chaîne de caractères sont lues ligne par ligne jusqu'à la première occurrence d'un retour chariot (Asc=13) ou d'un retour à la ligne (Asc=10). Les repères d'extrémité de ligne ne sont pas inclus dans la chaîne de caractères obtenue.
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, "Ceci est une ligne de texte."
Print #iNumber, "Ceci est une autre ligne de texte."
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, "Ceci est une ligne de texte."
Print #iNumber, "Ceci est une autre ligne de texte."
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