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.

Pernyataan Input# membaca nilai numerik atau string dari file yang terbuka dan memberikan data ke satu atau beberapa variabel. Variabel numerik dibaca hingga carriage return pertama (Asc=13), umpan baris (Asc=10), spasi, atau koma. Variabel string dibaca hingga return carriage pertama (Asc=13), umpan baris (Asc=10), atau koma.

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