Input, Input$

返回从以Input或Binary模式打开的文件中读取的固定数量字符。

语法：

• Input( Number , [ # ] FileNumber ) --- 返回Variant。
• Input$( Number , [ # ] FileNumber ) --- 返回String。

Number

必需 要返回的字符数。

FileNumber

必需 用于以Open语句打开文件的文件号。

使用Input读取的数据通常由Print #或Put写入文件。此函数仅适用于以Input或Binary模式打开的文件。

与**Input #**语句不同，Input函数返回它读取的所有字符，包括逗号、回车符、换行符、引号和前导空格。

对于以Binary访问模式打开的文件，尝试使用Input读取文件直到EOF返回True会产生错误。使用Input读取二进制文件时，请使用LOF和Loc代替EOF，或在需要EOF时使用**Get**。

INFO

对文本文件中包含的字节数据使用InputB。使用InputB时，Number指定要返回的字节数而非字符数。

示例

本示例使用Input函数从文件中逐字符读取并输出到立即窗口。假设TESTFILE是一个包含几行示例数据的文本文件。

Dim MyChar As Variant
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.

另请参阅

• InputB, InputB$函数
• Open语句
• EOF、LOF、Loc函数