IBM Lotus Symphony
|
Lee datos de un archivo secuencial abierto.
Input #FileNumber As Integer; var1[, var2[, var3[,...]]]
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.
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