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