Fungsi input

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft Jet sedang berjalan di mode kotak pasir yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode kotak pasir, Cari "mode kotak pasir" di bantuan.

Mengembalikan String berisi karakter dari file dibuka dalam mode Input atau biner .

Sintaks

Input ( nomor, [ #] filenumber)

Sintaks fungsi Input memiliki argumen ini:

Argumen

Deskripsi

angka

Diperlukan. Apa pun valid ekpresi numerik menentukan jumlah karakter yang akan dihasilkan.

filenumber

Diperlukan. Apa pun valid nomor file.


Keterangan

Data yang dibaca dengan fungsi Input biasanya ditulis ke file dengan mencetak # atau meletakkan. Gunakan fungsi ini hanya dengan file yang dibuka dalam mode Input atau biner .

Tidak seperti pernyataan Input # , fungsi Input akan mengembalikan semua karakter membaca, termasuk koma, kembali, linefeeds, tanda kutip, dan spasi.

Dengan file yang dibuka untuk akses biner , usaha untuk membaca file yang menggunakan fungsi Input hingga EOF mengembalikan True menghasilkan kesalahan. Gunakan fungsi LOF dan Loc bukan EOF saat membaca file biner dengan Input, atau menggunakan mendapatkan saat menggunakan fungsi EOF .

Catatan: Gunakan fungsi InputB untuk data byte yang dimuat dalam file teks. Dengan InputB, nomor menentukan jumlah byte untuk mengembalikan daripada jumlah karakter yang akan dihasilkan.

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 dalam sekali waktu dari file dan mencetak ke jendela segera . Contoh ini mengasumsikan bahwa TESTFILE adalah file teks dengan beberapa contoh 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.

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×