IBM Lotus Symphony


Instrucción Input # [Ejecución]

Lee cadenas de un archivo secuencial a una variable.

Sintaxis:

Line Input #FileNumber As Integer, Var As String

Parámetros:

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

var: nombre de la variable que almacena el resultado.

Con la sentencia Line Input#, puede leer cadenas de un archivo abierto a una variable. Las variables de cadena se leen línea a línea hasta el primer salto de carro (Asc=13) o salto de línea (Asc=10). Las marcas de final de línea no se incluyen en la cadena resultante.

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