Masukan Baris # Pernyataan

Modul
Isi
Indeks 🔎︎

# Input Baris # 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