Applies ToAccess untuk Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan Ekspresi Microsoft Jet berjalan dalam 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 yang berisi karakter dari file yang dibuka dalam mode Input atau Biner .

Sintaks

Input( number, [# ] filenumber)

Sintaks fungsi Input memiliki argumen ini:

Argumen

Deskripsi

angka

Diperlukan. Setiap ekpresi numerik valid yang menentukan jumlah karakter yang akan dikembalikan.

filenumber

Diperlukan. Setiap 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 pernyataan Input # , fungsi Input mengembalikan semua karakter yang dibacanya, termasuk koma, kembali ke awal, umpan garis, tanda kutip, dan spasi awal.

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

Catatan:  Gunakan fungsi InputB untuk data byte yang terdapat dalam file teks. Dengan InputB, angka 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 dalam satu waktu dari file dan mencetaknya ke jendela Langsung . Contoh ini mengasumsikan bahwa TESTFILE adalah file teks dengan beberapa baris data sampel.

Dim MyCharOpen "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.LoopClose #1    ' Close file.

Perlu bantuan lainnya?

Ingin opsi lainnya?

Jelajahi manfaat langganan, telusuri kursus pelatihan, pelajari cara mengamankan perangkat Anda, dan banyak lagi.

Komunitas membantu Anda bertanya dan menjawab pertanyaan, memberikan umpan balik, dan mendengar dari para ahli yang memiliki pengetahuan yang luas.