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