IBM Lotus Symphony


Input#-Anweisung [Laufzeit]

Liest Daten aus einer geöffneten sequenziellen Datei.

Syntax:

Input #Dateinummer As Integer; var1[, var2[, var3[,...]]]

Parameter:

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.

Beispiel:

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


Produktfeedback | Zusätzliche Dokumentation | Marken