Line Input # Statement
Llee cadenes d'un ficheru secuencial nuna variable.
Sintaxis:
Line Input #NúmberuFicheru As Integer, Var As String
Parámetros:
FileNumber: Númberu del ficheru que contién los datos que quier lleer. El ficheru tien de tar abiertu anteriormente cola instrucción Open por aciu la pallabra clave INPUT.
var: El nome de la variable qu'almacene la resultancia.
Cola instrucción Line Input#, pue lleer cadenes dende un ficheru abiertu nuna variable. Les variables de cadena lleen llinia a llinia hasta la primer torna de carru (Asc=13) o meyora de llinia (Asc=10). Les marques de final de llinia nun s'inclúin na cadena resultante.
Exemplu:
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNúmberu, "Esta ye una llinia de testu"
Print #iNúmberu, "Esta ye otra llinia de testu"
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
While Not EOF(iNumber)
Line Input #iNumber, sLine
If sLine <>"" Then
sMsg = sMsg & sLine & chr(13)
End If
Wend
Close #iNumber
MsgBox sMsg
End Sub