Catatan: Fungsi, metode, objek, atau properti yang diuraikan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft jet berjalan dalam mode Sandbox, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode Sandbox, Cari "mode Sandbox" dalam bantuan.
Mengembalikan string yang berisi karakter dari file yang dibuka dalam mode input atau biner .
Sintaks
Input ( angka, [# ] namapdan)
Sintaks fungsi input memiliki argumen ini:
|
Argumen |
Deskripsi |
|
angka |
Diperlukan. ekpresi numerik valid yang menentukan jumlah karakter yang akan dikembalikan. |
|
nama file |
Diperlukan. nomor fileyang valid. |
Keterangan
Data yang dibaca dengan fungsi input biasanya ditulis ke file dengan cetak # atau Put. Gunakan fungsi ini hanya dengan file yang dibuka dalam mode input atau biner .
Tidak seperti input # Statement, fungsi input mengembalikan semua karakter yang dibunyinya, termasuk koma, Carriage Returns, linefeeds, tanda kutip, dan spasi utama.
Dengan file yang dibuka untuk akses biner , upaya untuk membaca file menggunakan fungsi input hingga EOF mengembalikan True akan menghasilkan kesalahan. Gunakan fungsi LOF dan Loc dan bukan EOF saat membaca file biner dengan input, atau gunakan Get ketika menggunakan fungsi EOF .
Catatan: Gunakan fungsi INPUTB untuk data byte yang terdapat dalam file teks. Dengan INPUTB, Number menentukan jumlah byte untuk dikembalikan daripada jumlah karakter yang dikembalikan.
Contoh
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi input untuk membaca satu karakter sekaligus dari file dan mencetaknya ke jendela segera . Contoh ini menganggap bahwa TESTFILE adalah file teks dengan beberapa baris sampel data.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.
