Conteníu

# Input# Statement

Llee datos d'un ficheru secuencial abiertu.

### Syntax:

    Input #fileNum {,|;} var1 [, var2 [, ...]]

### Parameters:

fileNum: Number of the file that contains the data that you want to read. The file must be opened with the Open statement using the key word INPUT.

var: A numeric or string variable that you assign the values read from the opened file to.

La instrucción Input# llee valores numbéricos o cadenes d'un ficheru abiertu y asigna los datos a una o más variables. Una variable numbérica lleer hasta la primer torna de carru (Asc=13), meyora de llinia (Asc=10), espaciu o coma. Les variables de cadena lleer hasta la primer torna de carru (Asc=13), meyora de llinia (Asc=10) o coma.

Los datos y los tipos de datos del ficheru abiertu tienen d'apaecer nel mesmu orde que les variables que se pasen nel parámetru "var". Si asigna valores non numbéricos a una variable numbérica, asignar a "var" un valor igual a "0".

Los rexistros separaos por comes nun puen asignase a una variable de cadena. Les comines (") del ficheru tamién se refuguen. Si deseya lleer estos caráuteres del ficheru, use la instrucción Line Input# pa lleer ficheros de testu puros (ficheros que contienen namái caráuteres imprentables) llinia a llinia.

Si llégase a la fin del ficheru mientres se llee un elementu de datos, produzse un fallu y el procesu atáyase.

### Example:

    Sub ExampleWorkWithAFile
        Dim iCount As Integer, sFileName As String
        Dim sName As String, sValue As Integer
        sFileName = "C:\Users\ThisUser\data.txt"
        iCount = Freefile
        ' Escribe datos (que dempués lleeránse con Input) nel ficheru
        Open sFileName For Output As iCount
        sName = "Hamburg" : sValue = 200
        Write #iCount, sName, sValue
        sName = "New York" : sValue = 300
        Write #iCount; sName, sValue
        sName = "Miami" : sValue = 459
        Write #iCount, sName, sValue
        Close #iCount
        ' Lleer el ficheru de datos usando Input
        iCount = Freefile
        Open sFileName For Input As iCount
        Input #iCount, sName, sValue
        MsgBox sName & " " & sValue
        Input #iCount; sName, sValue
        MsgBox sName & " " & sValue
        Input #iCount, sName, sValue
        MsgBox sName & " " & sValue
        Close #iCount
    End Sub

Temes rellacionaos

Close Statement

Open Statement

Print# Statement

Write# Statement

Please support us!