IBM Lotus Symphony
|
Liest Zeichenfolgen aus einer sequenziellen Datei in eine Variable.
Line Input #Dateinummer As Integer, Var As String
Dateinummer: Die Nummer der Datei, die die zu lesenden Daten enthält. Die Datei muss zuvor mit der Open-Anweisung mithilfe des Schlüsselworts INPUT geöffnet werden.
var: Der Name der Variablen, in der das Ergebnis gespeichert wird.
Mit der Line Input#-Anweisung können Sie Zeichenfolgen aus einer geöffneten Datei in eine Variable lesen. Zeichenfolgevariablen werden zeilenweise bis zum ersten Wagenrücklauf (Asc=13) oder Zeilenvorschub (Asc=10) gelesen. Zeilenendemarkierungen sind nicht in die Ergebniszeichenfolge eingeschlossen.
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, "Dies ist eine Textzeile"
Print #iNumber, "Dies ist eine weitere Textzeile"
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