Masukan Baris # Pernyataan

Modul
Isi
Indeks 🔎︎

# 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