IBM Lotus Symphony


Instrucción Input# [Ejecución]

Lee datos de un archivo secuencial abierto.

Sintaxis:

Input #FileNumber As Integer; var1[, var2[, var3[,...]]]

Parámetros:

FileNumber: número del archivo que contiene los datos que se desean leer. El archivo debe abrirse con la instrucción Open utilizando la palabra clave INPUT.

var: variable numérica o de cada que a la se asignan los valores leídos del archivo abierto.

La instrucción Input# lee valores numéricos o cadenas de un archivo abierto y asigna los datos a una o más variables. Una variable numérica se lee hasta el primer retorno de carro (Asc=13), salto de línea (Asc=10), espacio o coma. Las variables de cadena se leen hasta el primer retorno de carro (Asc=13), salto de línea (Asc=10) o coma.

Los datos y los tipos de datos del archivo abierto deben aparecer en el mismo orden que las variables que se pasan en el parámetro "var". Si se asignan valores no numéricos a una variable numérica, a "var" se asigna un valor "0".

Los registros que se separan con comas no se pueden asignar a una variable de cadena. Las comillas (") del archivo tampoco se tienen en cuenta. Si desea leer estos caracteres del archivo, utilice la instrucción Line Input# para leer archivos simplemente de texto (archivos que sólo contienen caracteres imprimibles) línea a línea.

Si se alcanza el final del archivo al leer un elemento de datos, se produce un error y el proceso se interrumpe.

Ejemplo:

Sub ExampleWorkWithAFile

Dim iNumero As Integer

Dim sLinea As String

Dim aArchivo As String

Dim sMsg as String

aArchivo = "c:\data.txt"

iNumero = Freefile

Open aArchivo For Output As #iNumero

Print #iNumero, "Esta es una línea de texto"

Print #iNumero, "Esta es otra línea de texto"

Close #iNumero

iNumero = Freefile

Open aArchivo For Input As iNumero

While not eof(iNumero)

Line Input #iNumero, sLinea

If sLine <>"" then

sMsg = sMsg & sLinea & chr(13)

end if

wend

Close #iNumero

Msgbox sMsg

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas