Baris Input # Pernyataan

Membaca string dari berkas berurutan menjadi sebuah variabel.

Sintaksis:

Line Input #NomorBerkas As Integer, Var As String

Parameter:

NomorBerkas: Jumlah file yang berisi data yang ingin anda baca. File harus dibuka terlebih dahulu dengan pernyataan Open menggunakan kata kunci INPUT.

var: Nama variabel yang menyimpan hasilnya.

Dengan pernyataan Masukan Baris#, anda dapat membaca string dari file yang terbuka menjadi variabel. Variabel string dibaca baris demi baris hingga return carriage pertama (Asc = 13) atau linefeed (Asc = 10). Tanda garis akhir tidak termasuk dalam string yang dihasilkan.

Contoh:

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, "Ini adalah baris teks"

    Print #iNumber, "Ini adalah baris teks yang lain"

    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