IBM Lotus Symphony
|
Lit les chaînes d'un fichier séquentiel et les insère dans une variable.
Line Input #FileNumber As Integer, Var As String
FileNumber : numéro du fichier contenant les données que vous souhaitez lire. Le fichier doit avoir été ouvert à l'aide de l'instruction Open en utilisant le mot-clé INPUT.
var : nom de la variable qui stocke le résultat.
L'instruction Line Input# permet de lire les chaînes d'un fichier ouvert et de les insérer dans une variable. Les variables de chaîne sont lues ligne par ligne jusqu'au premier retour chariot (Asc=13) ou saut de ligne (Asc=10). Les marques de fin de ligne ne sont pas incluses dans la chaîne générée.
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, "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