Input 函数

注意: 如果 Microsoft Jet Expression Service 在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止评估可能不安全的表达式。 有关沙盒模式的详细信息,请搜索"帮助"中的"沙盒模式"。

返回字符串,其中包含在输入或二进制模式下打开的文件的字符

语法

输入 ( number, [# ] filenumber)

Input函数语法具有以下参数:

参数

说明

number

必需。 任何 数值表达式 指定要返回的字符数的有效字符数。

filenumber

必需。 任何有效的 文件编号 。


备注

使用 Input 函数 读取 的数据通常写入包含 Print # 或 Put 的文件。 仅对在输入或二进制模式下打开的文件使用此函数。

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

打开文件进行 二进制 访问后,尝试使用 Input 函数读取文件,直到 EOF 返回 True 时生成错误。 使用 INPUT 读取二进制文件时,使用LOFLoc函数而不是EOF,或使用 EOF 函数时使用Get。

注意:  对文本文件中包含的字节数据使用 InputB 函数。 使用InputB时,number指定要返回的字节数,而不是要返回的字符数。

示例

注意: 以下示例演示了在 VBA Visual Basic for Applications (模块) 函数。 有关使用 VBA 的信息,请在"搜索"旁边的下拉列表中选择"开发人员参考",在搜索框中输入一个或多个术语。

此示例使用 Input 函数从文件一次读取一个字符,并打印到 "立即" 窗口。 此示例假定 TESTFILE 是包含几行示例数据的文本文件。

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.

需要更多帮助?

扩展你的 Office 技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

×