IBM Lotus Symphony
|
Liest Daten aus einer geöffneten sequenziellen Datei.
Input #Dateinummer As Integer; var1[, var2[, var3[,...]]]
Dateinummer: Die Nummer der Datei, die die zu lesenden Daten enthält. Die Datei muss mit der Open-Anweisung mithilfe des Schlüsselworts INPUT geöffnet worden sein.
var: Eine numerische oder Zeichenfolgevariable, der Sie die Werte zuweisen, die Sie aus der geöffneten Datei gelesen haben.
Die Input#-Anweisung liest numerische Werte oder Zeichenfolgen aus einer geöffneten Datei und weist die Daten dann mindestens einer Variablen zu. Eine numerische Variable wird bis zum ersten Wagenrücklauf (Asc=13), Zeilenvorschub (Asc=10), Leerschritt oder Komma gelesen. Zeichenfolgevariablen werden bis zum ersten Wagenrücklauf (Asc=13), Zeilenvorschub (Asc=10) oder Komma gelesen.
Daten und Datentypen in der geöffneten Datei müssen in derselben Reihenfolge wie die Variablen angezeigt werden, die im Parameter "var" übergeben werden. Wenn Sie nicht numerische Werte zu einer numerischen Variablen zuweisen, wird "var" der Wert "0" zugewiesen.
Durch Kommas getrennte Datensätze können keiner Zeichenfolgevariablen zugewiesen werden. Anführungszeichen (") in der Datei werden ebenfalls ignoriert. Wenn Sie diese Zeichen aus der Datei lesen möchten, verwenden Sie die Line Input#-Anweisung zum zeilenweisen Lesen reiner Textdateien (Dateien, die nur druckbare Zeichen enthalten).
Wenn das Dateiende erreicht wird, während ein Datenelement gelesen wird, tritt ein Fehler auf und der Prozess wird abgebrochen.
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