Input Function [VBA]

Повертає знаки прочитані з файлу в режимі Input або Binary (String).

warning

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.


Синтаксис:

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

Повертає значення:

String

Параметри:

Число: обов'язково. Числовий вираз, що задає число знаків, які слід повернути.

#: не обов'язково.

НомерФайлу: обов'язково. Будь-який правильний номер файлу.

Коди помилок:

6 Переповнення

52 Неправильне ім'я або номер файлу

62 Читання вийшло за мітку кінця файлу

Приклад:

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

Будь ласка, підтримайте нас!