Reads data from an open sequential file and assigns the data to variables.
Public Sub Input( _ FileNumber As Integer, _ ByRef Value As Object _ )
Exception type | Error number | Condition |
---|---|---|
52 | FileNumber does not exist. | |
54 | File mode is invalid. |
Data read with Input is usually written to a file with Write. Use this function only with files opened in Input or Binary mode.
When read, standard string or numeric data is assigned to variables without modification. The following table illustrates how other input data are treated:
Data | Value assigned to variable |
---|---|
Delimiting comma or blank line | Empty |
#NULL# | DBNull |
#TRUE# or #FALSE# | True or False |
#yyyy-mm-dd hh:mm:ss# | The date and/or time represented by the expression |
#ERROR errornumber# | errornumber (variable is an object tagged as an error) |
If you reach the end of the file while you are inputting a data item, the input is terminated and an error occurs.
Note The Input function is not localized. For example, in the German version, if you input 3,14159, it will return only 3, since the comma is treated as a variable separator, rather than a decimal point.
This example uses the Input function to read data from a file into two variables. This example assumes that TESTFILE
is a file with a few lines of data written to it using the Write function; that is, each line contains a string in quotations and a number separated by a comma, for example, ("Hello", 234).
FileOpen(1, "TESTFILE", OpenMode.Output) Write(1, "hello") Write(1, 14) FileClose(1) Dim s As String Dim i As Integer FileOpen(1, "TESTFILE", OpenMode.Input)Input(
1, s)
Debug.WriteLine(s)Input(
1, i)
Debug.WriteLine(i) FileClose(1)
InputString Function | FileOpen Function | Print, PrintLine Functions | Write, WriteLine Functions |