Pernyataan Input#
Baca data dari buka berkas sekuensial.
Sintaksis:
Input #NomorBerkas As Integer; var1[, var2[, var3[,...]]]
Parameter:
NomorBerkas:Jumlah file yang berisi data yang ingin Anda baca. File harus dibuka dengan pernyataan Buka menggunakan kata kunci MASUKKAN.
var: Variabel angka atau string yang Anda tetapkan nilai yang dibaca dari berkas yang dibuka.
The Input# statement reads numeric values or strings from an open file and assigns the data to one or more variables. A numeric variable is read up to the first carriage return (Asc=13), line feed (Asc=10), space, or comma. String variables are read to up to the first carriage return (Asc=13), line feed (Asc=10), or comma.
Data dan tipe data dalam file yang dibuka harus muncul dalam urutan yang sama dengan variabel yang dikirimkan dalam parameter "var". Jika Anda menetapkan nilai non-numerik ke variabel numerik, "var" diberi nilai "0".
Catatan yang dipisahkan oleh koma tidak dapat ditugaskan ke variabel string. Tanda kutip (") dalam berkas juga diabaikan. Jika Anda ingin membaca karakter ini dari berkas, gunakangaris masuk#pernyataan untuk membaca file teks murni (file yang hanya berisi karakter yang dapat dicetak) baris demi baris.
Jika akhir berkas tercapai saat membaca elemen data, kesalahan terjadi dan proses akan dibatalkan.
Contoh:
Sub ExampleWorkWithAFile
Dim iCount As Integer
Dim sName As String
Dim sValue As Integer
Dim sFileName As String
sFileName = "c:\data.txt"
iCount = Freefile
' Tulis data ( yang akan kita baca nanti dengan Masukan ) ke berkas
Open sFileName For Output As iCount
sName = "Hamburg"
sValue = 200
Write #iCount, sName, sValue
sName = "New York"
sValue = 300
Write #iCount, sName, sValue
sName = "Miami"
sValue = 459
Write #iCount, sName, sValue
Close #iCount
iCount = Freefile
' Baca berkas data menggunakan Masukan
Open sFileName For Input As iCount
Input #iCount; sName, sValue
MsgBox sName & " " & sValue
Input #iCount; sName, sValue
MsgBox sName & " " & sValue
Input #iCount; sName, sValue
MsgBox sName & " " & sValue
Close #iCount
End Sub