Module
Contents
Index 🔎︎

# Input# Statement

Llee datos d'un ficheru secuencial abiertu.

## Sintaxis:

Input #NúmberuFicheru As Integer; var1[, var2[, var3[,...]]]

## Parámetros:

NúmberuFicheru: Númberu del ficheru que contenga los datos que se deseye lleer. El ficheru tien de tar abiertu cola instrucción Open por aciu la pallabra clave INPUT.

var: Una variable numbérica o de cadena qu'a la que s'asigna los valores que se lleen del ficheru abiertu.

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.

## Exemplu:

    Sub ExampleWorkWithAFile
    Dim iCount As Integer
    Dim sName As String
    Dim sValue As Integer
    Dim sFileName As String

    sFileName = "c:\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

    iCount = Freefile
    ' Lleer el ficheru de datos usando Input
    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