Line Input # Statement

Luetaan muuttujaan merkkijonoja peräkkäistiedostosta.

Syntaksi:

Line Input #tiedostonro1 As Integer, muuttuja_1 As String

Parametrit:

Tiedostonro1: sen tiedoston numero, jonka tietoja aiotaan lukea. Tiedosto pitää olla jo avattu Open-lauseella avainsanaa INPUT käyttäen.

Muuttuja_1: sen muuttujan nimi, johon tiedot tallennetaan.

Line Input# -lauseella luetaan merkkijonoja avoimesta tiedostosta muuttujaan. Merkkijonomuuttujat luetaan rivi kerrallaan ensimmäiseen telanpalautukseen (CR, Asc=13) tai rivin siirtoon (LF, Asc=10). Rivin lopetusmerkit eivät tule merkkijonoon.

Esimerkki:

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 #iNumber, "Tämä on tekstirivi."

    Print #iNumber, "Tässä on toinen rivi tekstiä"

    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