This is preliminary documentation and subject to change.
To comment on this topic, please send us email at ngwssdk@microsoft.com. Thanks!
Input Function Example
This example uses the
Input function to read one character at a time from a file and print it to the
Immediate window. This example assumes that
TESTFILE
is a text file with a few lines of sample data.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(
1,
#
1)
' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.