IBM Lotus Symphony
|
Lee cadenas de un archivo secuencial a una variable.
Line Input #FileNumber As Integer, Var As String
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.
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