Input 函数

应用对象
Microsoft 365 专属 Access Access 2024 Access 2021 Access 2019 Access 2016

注意

如果 Microsoft Jet 表达式服务在沙盒模式下运行，则禁用本主题中所述的函数、方法、对象或属性，从而阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息，请在“帮助”中搜索“沙盒模式”。

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

语法

输入 (数字[# ] filenumber)

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

参数 说明
数量 必需。 指定要返回的字符数的任何有效数值表达式。
filenumber 必需。 任何有效的文件编号。

    

备注

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

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

打开文件进行 二进制 访问时，尝试使用 Input 函数读取文件，直到 EOF 返回 True 将生成错误。 使用 Input 读取二进制文件时，请使用 LOF 和 Loc 函数而不是 EOF 函数，或使用 EOF 函数时使用 Get。

注意

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

示例

注意

下面的示例演示了如何在 Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 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.