Funktion Input [VBA]

Gibt den offenen Strom einer Eingabe oder Binärdatei zurück (Zeichenkette).

Diese Funktion oder Konstante wird mit der Anweisung Option VBASupport 1 aktiviert, die in einem Modul vor dem ausführbaren Programmcode steht.

Input( Number as Integer, [# ] FileNumber as Integer)

String

Number: Erforderlich. Numerischer Ausdruck, der die zurückzugebende Anzahl an Zeichen festlegt.

#: Optional.

FileNumber: Erforderlich. Eine gültige Dateinummer.

REM ***** BASIC *****
Option VBASupport 1
Sub Example_Input
 Dim MyData
 Open "MyDataFile.txt" For Input As #1
 Do While Not EOF(1)
  MyData = Input(1, #1)
  Print MyData
 Loop
 Close #1
End Sub