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

Please support us!