Pernyataan Input#

Baca data dari buka berkas sekuensial.

Sintaksis:

Input Statement diagram


Input #fileNum {,|;} var1 [, var2 [, ...]]

Parameter:

fileNum: Number of the file that contains the data that you want to read. The file must be opened with the Open statement using the key word INPUT.

var: A numeric or string variable that you assign the values read from the opened file to.

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, sFileName As String
Dim sName As String, sValue As Integer
 
    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

Mohon dukung kami!