IBM Lotus Symphony


Instruction Line Input # [Exécution]

Lit les chaînes d'un fichier séquentiel et les insère dans une variable.

Syntaxe :

Line Input #FileNumber As Integer, Var As String

Paramètres :

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.

Exemple :

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


Commentaires en retour sur le produit | Documentation complémentaire | Marques